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Sidst  i  1985  lancerede  Activision 
officielt  ”Little  Computer  People” 
ved  en  stort  opsat  pressebegiven¬ 
hed  i  London.  Der  var  specielt 
indbudte  gæster  fra  hele  verden, 
og  som  det  eneste  datablad  i 
Skandinavien  var  SOFT  Special 
med.  Vores  udsendte  medarbej¬ 
der  Rasmus  Kristiansen  rapporte¬ 
rer  fra  verdensbegivenheden. 


■  "1-2-3.  testning”.  Vi  er  en 
håndfuld  pressefolk,  der  er 
kommet  lidt  tidligt.  Folk  fra 
Activision  er  stadig  i  gang 
med  at  gøre  klar.  Der  er  hek¬ 
tisk  aktivitet,  alt  skal  være 
færdigt  om  mindre  end  en 
halv  time.  Den  31.  oktober. 
1985.  kl.  12,30,  begynder  en 
verdensbegivenhed  nemlig: 
The  oflicial  Launch  of  "The 
Little  Computer  People  Re¬ 
search  Project",  lanceringen 
af  LCP.  -  Og  berømtheder  fra 
en  lang  række  lande  er  ind¬ 
budt  på  linie  med  verdens¬ 
fagpressen.  Activision  var¬ 
mer  op.  "1-2-3,  this  is  a  test". 
Stedet  er  "The  Pied  Piper  Vi¬ 
deo  Cafe".  Bag  en  lille  faca¬ 
de  på  Argyll  Street,  kun  få 
skridt  fra  Londons  berømte 
Oxford  Circus.  skjuler  sig  et 
sted  af  imponerende  dimensi¬ 
oner.  Har  du  bevæget  dig 
ned  af  trappen,  mødes  du  af 
flere  kæmpe-rum  med  mas¬ 
ser  af  TVskærme  på  vægge¬ 
ne!  Heraf  navnet.  "The  Video 
Cafe".  Heraf  også  grunden  til, 
at  Activision  har  valgt  stedet 
til  den  officielle  lancering  af 
"'Little  Computer  People":  De 
mange  skærme  næsten  be¬ 
der  om ,  der  bliver  vist  compu¬ 
terspil  på  dem.  Det  impone¬ 
rende  sted  er  på  kun  otte  må¬ 
neder  blevet  en  af  Londons 
"hotteste"  insteder  for  den  ri¬ 
geste  del  af  de  unge,  legesy¬ 
ge  London-Kids.  "The  Video 
Cafe  "er  kendt  for  sin  unikke 
stil,  atmosfæren,  og  the  hip  vi¬ 
deos.  Nogle  mener,  deka¬ 
dencen  tager  overhånd,  når 
Londons  rige  ungdom  en  til¬ 
fældig  torsdag  aften  forlyster 
sig  med  i  "The  Video  Cafe"  at 
danse  tæt  ved  Marilyn  Mon¬ 
roes  stillbillede  på  en  skærm . 
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Men  trods  det,  er  det  "The  Vi¬ 
deo  Cate",  Activision  har  lej¬ 
et.  Og  rygter  snakker  i  kroge¬ 
ne  om.  at  det  koster  et  sted 
mellem  25  og  30.000  kroner  at 
leje  "The  Video  Cate"  midt  i 
London  en  hel  dag.  Oveni 
kommer  drinks  i  baren  og 
den  mad,  de  mange  indbud¬ 
te  gæster  kan  sætte  til  livs 
sammen  med  pressen.  Men 
mon  ikke  Activision  har  pen¬ 
gene... 

Ghostbusters  igen 

Efter  en  små  10  minutter, 
blændes  der  op  for  omkring 
20  kæmpemonitors  og  en  7-8 
mega  skærme  af  den  rigtig 
store  slags,  der  hænger  på 
væggen  og  fylder  knap  2  me¬ 
ter  i  højden.  En  musik-video 
fylder  rummet,  hvor  snart  50 
pressefolk  har  samlet  sig. 
"Who  ya'  gonna  call?",  drø¬ 
ner  det  ud  gennem  de  store 
højttalere  i  loftet.  "Ghostbuste- 
res!"  -  svarer  Ray  Parker  Jr. 
med  en  vaskeægte  ameri¬ 
kansk  accent.  Musikvideoen 
fylder  rummet,  mens  en  halv 
snes  journalister  griber  pen¬ 
nen  og  gør  notater  om  denne 
lidt  sære  opstart  på  årets 
Activision-begivenhed . 
Ghostbusters-videoen  fortsæt¬ 
ter  for  fuldt  drøn  igen  og  igen. 
alt  imens  flere  og  flere  bliver 
lukket  ind  gennem  sikker¬ 
hedsvagterne.  Klokken  bliver 
halv  et,  og  lyset  blændes 
langsomt  ned,  Ghostbusters 
fader  ud  og  en  ung  slipse- 
klædt  Activision-talsmand 
byder  velkommen. 

- 1  har  sikkert  allerede  undret 
jer  over,  hvorfor  Ghostbusters 
kører.  Og  mange  af  jer  har 
ganske  sikkert  også  allerede 
tænkt:  Hvad  har  Ghostbusters 


med  "Little  Computer  Peop- 
le"  at  gøre?  -  Det  skal  jeg  for¬ 
tælle  jer! 

Helt  specielle  gæster 

-  For  netop  et  år  siden,  på  den¬ 
ne  dato  og  lige  præcis  sam¬ 
me  tid.  lancerede  Activision 
officielt  verdens  hidtil  mest 
solgte  spil.  Ja,  Ghostbusters! 
Intet  andet  spil  har  solgt  så 
godt  som  Ghostbusters  . . . 
(lang  pause,  stilhed) ...  Nu  for¬ 
venter  Activision,  at  denne 
verdensrekord  vil  blive  slået 
. . .  (dyb  stilhed) ...  Al  "The  Litt¬ 
le  Computer  People  Research 
Project,  House  on  af  Disk". 

-  Derfor,  netop  derfor,  fortsæt¬ 
ter  han,  sker  den  officielle  lan¬ 
cering  af  LCP  på  netop  denne 
dag,  samme  tidspunkt.  "The 
Little  Computer  People  Re¬ 
search  Project"  vil  blive  vor¬ 
dens  mest  solgte  stykke 
computer-software.  Pludselig 
blændes  der  op  for  de  mange 
wall-size  skærme  igen,  og 
skærmbilledet  fra  "Little  Com¬ 
puter  People".  det  lille  hus,  to¬ 
ner  frem.  De  mange,  der  al¬ 
drig  har  set  programmet  før, 
stirrer  i  åndeløs  spænding. 

-  Vi  har  fløjet  to  helt  specielle 
gæster  hertil  fra  Californien, 
lyder  det  over  mikrofonen. 
Lad  os  byde  velkommen  til 
Oysten  og  Harold! 

Folk  klapper,  mens  en  lille 
sprite  åbner  en  dør  på  skær¬ 
men  og  lige  så  stille  valser  ind 
i  computerhusets  grafiske  pej¬ 
sestue.  "Sayhello  to  Harold". 
"Hello  Harold!" 

Efter  beundringer  af  Harolds 
skærm-hus  udforskning,  lyder 
det  igen  fra  den  slipseklædte: 
"Lad  os  byde  velkommen  til 
endnu  en  helt  speciel  gæst. 
Mr.  David  Crane,  også  fra  Ca¬ 
lifornien." 


The  Show  must  go  on 

David  Crane  kendes  al  man¬ 
ge  garvede  computer-freaks 
som  skaberen  al  utallige 
kæmpehits,  heriblandt  Pitfall- 
serien  og  Ghostbusters.  SOFT 
Special  har  tidligere  intervie¬ 
wet  Crane,  og  nu  er  han  her 
altså  igen,  denne  verdensbe¬ 
rømthed  inden  lor  software. 
Midt  i  London,  til  ære  lor  an¬ 
dre  data-berømtheder  og 
pressen,  Hvorfor?  David  Cra¬ 
ne  står  nemlig  også  bag  "The 
Little  Computer  People".  Mi¬ 
krofonen  overlades  til  Crane . 
Han  rømmer  sig  lidt,  og  jeg 
når  lige  at  give  tegn  til  den 
pressefotograf,  jeg  har  hyret  i 
London:  Knips!  Han  forstår 
åbenbart  min  fingerbevæ¬ 
gelse,  for  få  sekunder  efter  er 
han  i  fuld  gang  med  blitzen 
og  David  Crane  som  offer.  Bil¬ 
leder  skal  tages  af  denne  Ca¬ 
lifornier,  som  imidlertid  synes 
vant  til  den  megen  opmærk¬ 
somhed:  Han  fortsætter  upå¬ 
virket  sin  tale,  mens  både  min 
og  andre  blades  pressefotog¬ 
rafer  skyder  løs.  Det  er  tyde¬ 
ligt,  han  føler  sig  hjemme  i 
projektørernes  varme  lysstrå¬ 
ler.  end  ikke  stemmen  lyder 
nervøs. 

-  Hej,  er  hans  første  enlige  ord, 
som  straks  overdøves  af  en 
klapsalve .  Jo,  han  er  hjemme 

-  blandt  utallige  beundrere.  - 
Hej,  gentager  han.  og  vel¬ 
kommen.  Velkommen  til  lan¬ 
ceringen  af  "The  LCP  Re¬ 
search  Project".  -  Jeg  er  her  i 
dag  for  at  fortælle  jer  om  en 
revolutionerende  opdagelse: 
Vi  har  hos  Activision  fundet 
små  mænd,  der  bor  inde  i 
folks  computere.  De  kommer 
frem,  når  vi  loader  et  grafisk 


hus  ind  på  skærmen. 

David  Crane  fortsætter  med 
at  fortælle  om  det  nye  pro¬ 
gram  og  viser  lidt  efter  lidt, 
hvad  han  kan  med  det.  Han 
fortæller,  du  kan  give  din  LCP 
små  gaver,  og  viser  det  på 
skærmene.  Han  forærer  Ha¬ 
rold  en  plade,  som  Harold 
takker  for  ved  at  samle  den 
op  uden  for  døren ,  Han  beder 
Harold  spille  den.  Det  gør  Ha¬ 
rold,  og  danser  endda  til  i  takt 
med  musikken.  Pas  på.  Tra- 
volta! 

Harold  skriver  brev 

-  Nu  vil  vi  bede  ham  skrive 
brev  til  os.  Harold  henter  pa¬ 
pir,  sætter  sig  ved  skrivema¬ 
skinen  og  lader  fingrene  flyve 
over  tasterne:  "Jeg  tror  jeg 
kunne  kænke  mig  at  holdt 
party  for  mine  venner",  skri¬ 


ver  han.  Senere  spørger  Da¬ 
vid  Crane  ham  om  flere  an¬ 
dre  ting,  som  Harold  straks 
gør.  Og  nu  spørger  han  så  al¬ 
le  os:  Hvad  skal  vi  bede  ham 
om?  Nogle  gange  gør  han  alt, 
hvad  vi  siger,  hvis  vi  altså  er 
flinke.  Er  der  nogen,  der  ved, 
hvad  vi  skal  gpørge  ham  om? 
Ved  nabobordet  griner  en 
free-lance  journalist  lavmælt 
til  sin  sidemand  "Pirate  some 
software" .  -  Lad  os  bede  ham 
knække  og  kopiere  software 
ulovligt!  David  Crane  hører 
det  ikke.  men  den  fedladne 
free-lancer  modtager  et  par 
blikke  fra  Activision -folk,  der 
står  tæt  ved.  Og  hvem  ved, 
LCP'eme  har  da  en  computer 
i  huset,  så  ... 

En  dame  foreslår  en  omgang 
poker,  så  David  Crane  sætter 
sig  ned  og  begynder  at  spille 


poker  med  den  lille  fyr  derop¬ 
pe  på  skærmen.  Harold  vin¬ 
der,  men  David  afviser  totalt, 
en  LCP  kan  snyde .  -  Mange  af 
dem  er  bare  knaldgode  til  po¬ 
ker.  Thats  all. 

Herefter  spiller  Harold  klaver, 
taler  lidt  i  telefon  (med 
hvem?!)  og  ser  i  det  hele  taget 
ud  til  at  hygge  sig  gevaldigt . 
Folk  nyder  lanceringen,  Da¬ 
vid  Crane  er  i  sit  es,  demon¬ 
strationen  af  spillets  mulighe¬ 
der  fortsætter.  Der  er  flere 
spørgsmål  fra  pressen  som  be¬ 
redvilligt  bliver  besvaret . 


Her  interviewes  David  Crane 
(i  midten).  Til  venstre  ses  Mo¬ 
gens  Jensen  tra  Quicksott,  og 
SOFT  Speciais  Rasmus  Kristi¬ 
ansen  til  højre. 
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Hvad  hedder  de  små  ly¬ 
re  mon? 

-  Hedder  de  alle  sammen  Ha¬ 
rold,  spørger  en  skribent  jeg 
kender  fra  det  engelske  må¬ 
nedsblad  "Your  Computer”. 
David  Crane  ser  opgivende 
ud,  vi  andre  trækket  lidt  på 
smilebåndet.  -  Næh,  hvorfor 
skulle  de  dog  det,  lyder  sva¬ 
ret.  De  er  alle  sammen  så  for¬ 
skellige.  kommer  fra  hver  sin 
computer.  Alle  er  individuel¬ 
le,  så  hvorfor  skulle  de  dog 
hedde  det  samme?  Selv  om  vi 
til  dags  dato  har  kunnet  rubri¬ 
cere  dem  i  tolv  hovedgrup¬ 
per,  er  ingen  af  dem  helt  ens. 
"  Little  Computer  People”  er 
så  forskellige  som  os  andre. 
Som  det  sig  hør  og  bør  ved  sto¬ 
re  begivenheder  i  London,  er 
der  nok  at  drikke  og  spise .  Fle¬ 
re  er  allerede  gået  godt  til  den 
i  "Video  Cafe 's”  eksklusive 
bar,  og  da  David  Crane  tak¬ 
ker  af,  tager  folk  ved  kniv  og 
gaffel. 

Under  spisningen  ankommer 
en  lidt  forsinket  Mogens  Jen¬ 
sen  direkte  fra  Copenhagen, 
Denmark.  Mr.  Jensen  er  ma- 
naging  director  hos  Quicksoft. 
det  store  københavnske 
software-firma,  der  er  dansk 
distributør  og  officiel  agent  for 
Activision,  og  som  sådan  og¬ 
så  forestår  den  danske  lance¬ 
ring  af  "The  Little  Computer 
People  Research  Project".  For 
at  kunne  nå  den  sidste  del  af 
Activisions  medie¬ 

begivenhed,  har  Mr.  Jensen 
måttet  tage  en  helikopter  fra 
Gatwick,  men  nu  er  han  her 
altså  og  bliver  modtaget  af  Al- 
lison  Hale,  Activisions  Export 
Marketing  Manager  i  Europa . 
Det  er  også  Allison  Hale,  der 


arrangerer  dagens  mini¬ 
interview  med  David  Crane 
personligt.  Denne  Mister  Soft¬ 
ware  himself,  er  normalt  svær 
at  komme  til.  men  udenland¬ 
ske  blade  har  som  regel  be¬ 
dre  chancer.  Da  SOFT-Special 
var  taget  til  London  for  at 
dække  Activisionbegivenhe- 
den,  brugte  David  Crane  lidt 
tid  sammen  med  mig  og  Mo¬ 
gens  Jensen  fra  Quicksoft.  Vi 
talte  med  David  Crane  om 
programmet,  som  han  kate¬ 
gorisk  nægtede  at  kalde  et 
spil. 

-  "The  LCP  Research  Project" 
er  en  opdagelse,  et  udvik¬ 
lingsprogram,  der  lader  os 
lære  noget  om  de  små  men¬ 
nesker  inden  i  computerne. 
Det  er  ikke  noget  spil .  Folk  tror, 
Activision  har  lavet  et  nyt  spil, 
for  det  er  vi  nu  engang  så 
kendte  for.  Men  det  her  har 
faktisk  ikke  spor  at  gøre  med 
at  spise  prikker  eller  skyde  no¬ 
get  ned.  Med  "House  on  a 
Disk"  kan  du  kommunikere 
med  små  nye  væsener.  Det 
gælder  om  at  lære  noget  om 
dem  selv  og  os. 

-  Det  er  fantastisk.  Det  har  ta¬ 
get  os  lang  tid,  men  nu  er  det 
her.  "The  Little  Computer  Pe¬ 
ople  Research  Project,  House 
om  a  Disk  " .  Det  er  helt  utroligt . 
fantastisk. 

Efter  10-15  minutters  samtale 
med  David  Crane  vandrer  vi 
ud,  helt  betaget.  Da  vi  forla¬ 
der  stedet,  bemærker  vi  de 
henved  450  plakater,  der  er 
blevet  sat  op  over  det  hele. 
Over  et  billede  af  en  lille 
sprite-agtig  mand  står  der 
med  store,  røde  bogstaver: 
There  ARE  people  living  in 
computers!  □ 

Rasm  us  Kirkegård  Kristiansen 


"Der  er  krig  i  Afrika",  lyder 
foromtalen  fra  U.S.  Gold  til  et 
af  deres  seneste  spil,  Desert 
Fox.  Dette  spil  har  mange 
Commodore  64  ejere  set  frem 
til,  og  nu  er  det  her.  Det  er  an¬ 
den  verdenskrig  og  du  er  "Lo¬ 
ne  Wolf"  fra  Storbritannien, 
op  imod  Rommels  Desert 
Fox,  en  rigtig  nazi-tysker.  Spil¬ 
let  er  fra  Sydney  Develop- 
ment  i  USA,  og  dette  firma  har 
tidligere  lavet  megasucceser 
som  f.eks.  Zaxxon  og  Blue 
Max. 

Det  var  derfor  med  store  for¬ 
ventninger  vi  loadede  Desert 
Fox  -  et  sagnomspundet  spil 
om  ørkenkrig  i  nordafrika.  Og 
det  er  bare  lækkert!! 

Desert  Fox  har  en  Beach 
Head-agtig  stil  med  flere  for¬ 
skellige  kampscener,  men 
det  er  bedre.  Både  hvad  an¬ 
går  grafik,  lyd,  tale  og  varia¬ 
tion/alsidighed.  Desert  Fox 
slår  Beach  Head  med  et  par 
kanonløbslængder,  men 


hvad  er  det  så  egentlig,  der 
sker  i  dette  supergame? 

Dine  opgave  er  at  indtage  og 
beskytte  dine  depoter  med 
tanks,  benzin  og  leverancer  - 
altsammen  noget,  nazi¬ 
drengene  er  ude  efter  på 
samme  tid.  Du  er  i  kapløb 
med  tiden,  og  skal  nå  først 
hen  til  hvert  depot.  Falder  ba¬ 
re  en  enkelt  base,  hedder  det 
Schluss  -  eller  Game  Over. 
som  Desert  Fox  skriver  det 
Og  så  er  der  nix  sejrssange  og 
nul  tegnefilm.  Det  er  der  til 
gengæld  hvis  du  vinder:  Ind¬ 
tag  samtlige  baser/depoter, 
og  du  vil  høre  en  sejrsmelodi 
efterfulgt  af  Rommel.  der 
kommer  kørende  i  sin  Tiger 
Tank  og  basker  energisk  med 
det  hvide  overgivelsesflag. 
Tale  er  der  også  i  Desert  Fox, 
endda  lavet  med  autentisk 
accent  hos  Electronic  Speech 
Systems  i  Californien.  Og  så 
har  Sydney.  som  et  klart  plus. 
lavet  øvelseskærme  ved 


hver  kampdisciplin.  1  det  en¬ 
delige  spil,  the  final  battie, 
skal  du  nemlig  kæmpe  mod 
en  hel  hær.  og  den  er  ikke 
helt  nem.  Så  istedet  kan  du 
inden  tæppet  for  alvor  går, 
øve  på  træningsskærm.  Her 
kan  vælges  mellem  at  køre 
stærkt  igennem  et  tæt  belagt 
minefelt  (flot  3D  grafik).  Skyde 
fra  din  egen  Sherman  tank 
mod  et  sæt  angribende  tyske 
Tiger  Tanks.  Beskytte  en  forsy  - 
ningsconcoy  ved  at  skyde 
fjendtlige  fly  ned  med  ma¬ 
skinkanoner.  Klare  sig  gen¬ 
nem  en  fjendtlig  skyttegrav 
eller  at  skyde  Rommels  Stuka- 
bombefly  ned.  Altsammen 
noget,  der  forekommer  sam¬ 
menblandet  i  den  rigtige  ør¬ 
kenkrig. 

Og  nu  vi  snakker  ørkenkrig: 
Her  kan  du  sætte  egne  Spitfi- 
res  ind  mod  Nazi'erne.  hvor 
du  kan  vælge  angrebs-  og 
rutetaktik.  Du  kan  zoome  ind 
på  depoterne,  for  at  få  oplys¬ 


ninger  på  disse  og  hvor  tæt 
fjenden  er  på,  ligesom  du 
med  din  kode-knækker  kan 
aflytte  Rommels  radio  (igen: 
autentisk  tale.  omend  for  lidt 
al  en  god  ting).  Er  det  nok?  Vi 
siger  ja  og  kan  godt  lide  sam¬ 
menblandingen  af  håndfast 
action  og  strategisk  planlæg¬ 
ning.  Det  er  nyt.  det  er  US 
Gold .  Med  Desert  Fox  har  de 
en  vinder,  også  selvom  lyden 
ikke  er  helt  i  top.  Talen  kunne 
der  godt  have  været  mere  af, 
nu  den  er  så  god,  og  måske 
kunne  grafikken  være  be¬ 
dre.  Men  er  du  fan  af  det  ori¬ 
ginale  Beach  Head,  vil  De¬ 
sert  Fox  få  dig  hooked. 
Achtung! 
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Position  19 
Laps  to  90  10 


In  front:  Rick  Shaw 
Behind:  franz  jooe 


Omdrejningerne  stiger,  som 
de  siger  derovre  hos  Firebird. 
Især  efter  at  de  har  sendt  Revs 
på  gaden .  For  det  spil  er  bare 
for  folk  med  benzin  i  blodet  og 
nerver  af  stål. 

Revs  er  bare  et  helt  suverænt 
racer-simulations  spil,  der  på 
en  ny  og  spændende  måde, 
kæmper  om  retten  til  at  være 
det  bedste  racerbilsspil  i  ver¬ 
den. 

I  Revs  får  du  ikke  blot  softwa¬ 
ren,  men  også  en  "Drivers 
handbook",  med  samtlige 
tekniske  og  praktiske  fiduser 
til  dette  spil.  For  at  få  det  reali¬ 
stiske  islæt  med  på  banen, 
har  de  ved  tilvirkningen  af 
spillet  her,  haft  David  Hunt, 
tidligere  formel  3  kører,  som 
teknisk  konsulent .  Hvis  en  for¬ 
mel  3  kører  ikke  kan  give  de 
bedste  og  mest  trolige  oplys¬ 
ninger,  hvem  kan  så?  "Driv¬ 
ers  handbook"  starter  med  en 
introduktion  af  dit  benzinslu¬ 
gende,  gummifræsende, 
æterlugtende  fartuhyre.  En 
Ralt  RT3  Toyota  med  Nova¬ 
motor.  Det  er  en  enkeltsædet 
(altså  ikke  en  man  tager  på 
skovtur  med  svigermor  i)  ra¬ 
cerbil.  Du  bliver  tævet  gen¬ 
nem  banen  af  en  2  liters  nor¬ 
mal  racermaskine  (d.v.s.  in¬ 
gen  turbo),  der  kan  præstere 
op  til  1 60  små  pruhester.  Så  er 
der  en  kort  beskrivelse  af  hvil¬ 
ke  dæk  du  skal  bruge  hvor¬ 
når,  for  at  få  det  bedste  vej¬ 
greb.  Og  endelig  en  forkla¬ 
ring  på  hvorfor  der  på  bilen  er 
"Front  Wing",  og  "Rear 
Wing ' ' .  Det  er  vigtigt  at  sætte 
sig  ind  i  aerodynamikken. 


når  du  skal  til  at  køre.  Du  skal 
nemlig  selv  vinkle  vingerne, 
der  har  til  opgave  at  holde  dit 
hvinende  uhyre  til  jorden.  Så 
er  der  en  detaljeret  instruktion 
i.  hvordan  du  får  de  bedste 
styremuligheder,  når  du  skal 
på  banen,  og  der  er  mange . 
Du  har  mulighed  for  at  køre 
både  med  tasterne,  eller  joy- 
stick.  Disse  muligheder  kan 
kombineres  yderligere.  Hvis 
du  f  .eks.  ønsker  dit  rat  skal  re¬ 
agere  på  det  mindste  vink,  el¬ 
ler  om  du  skal  have  hjælp,  så 
bilen  selv  retter  sig  opo.s.v.  En 
sjov  detalje  jeg  aldrig  har  set 
før,  er  at  når  du  holder  på  ba¬ 
nen.  Du  er  parat  til  start,  men 
du  skal  starte  bilen  før  du  kan 
køre  (T).  Du  kan  høre  starteren 
summe,  og  kort  efter  starter 
maskinen.  Tilbage  til  hånd¬ 
bogen,  hvor  der  er  en  lang  in¬ 
struktion  i  at  køre  bilen.  Hvor¬ 
dan,  hvorfor,  hvorledes,  og 
masser  af  tips  til  en  fremtidig 
superkører. 

Du  har  nu  valgt  hvilken  bane 
du  vil  køre  på,  enten  "Silver¬ 
stone"  eller  "Brand  Hatch", 
hvor  jeg  af  to  onder  vil  vælge 
"Silverstone",  der  må  siges  at 
være  den  "nemmeste".  Ja, 
nemmeste  i  gåseøjne,  for  det 
tager  lang  tids  træning,  at 
kunne  tage  svingene.  Især  i 
den  hastighed,  som  der  står 
beskrevet.  Det  hele  selvfølge¬ 
lig  samtidig  med  at  alle  de 
andre  kørere  selvfølgelig  ge¬ 
nerer  dig  mest  muligt. 

Du  kan  naturligvis  træne  lige 
så  meget  du  lyster,  før  du  ka¬ 
ster  dig  ud  i  et  af  de  store  ra¬ 
ces.  Men  lad  os  antage  at  du 


har  trænet  nok,  og  gerne  vil. 
køre  lidt.  Du  vælger  så  "Sil¬ 
verstone"  banen,  og  hvor 
mange  Taps"  du  vil  køre.  Du 
er  nu  placeret  midt  i  det  hele, 
og  et  flot  billede  brager  ud  i 
ansigtet  på  dig. 

Du  sidder  i  din  bil.  og  har 
oversigt  over  instrumenterne, 
og  banen.  Du  drejer  nøglen 
(T)  og  starteren  summer  et 
øjeblik  ... 

Wruuummmm!  Din  160  hestes 
stærke  motor  brøler  sine  kræf¬ 
ter  ud  i  hovedet  på  manden 
bag  dig.  Din  højre  hånd  læg¬ 
ger  sig  om  gearstangen,  og 
du  vrider  den  om  i  første 
(Q/Joystick).  Når  du  er  oppe 
omkring  de  5000  omdrejnin¬ 
ger.  giver  du  den  en  "pind" 
til.  Omgivelserne  brager  forbi 
dine  øjne.  der  er  fæstnet  på 
banen.  Et  skilt  angiver  at  du 
snart  skal  dreje .  Du  går  helt  ud 
i  siden,  venter  til  du  er  godt  in¬ 
de  i  kurven,  og  drejer  så  me¬ 
get  du  kan.  Dækkene  hviner, 
du  retter  op,  og  der  er  ikke 
længere  nogen  i  bakspejlet. 
Vel  ude  af  svinget,  giver  du 
mere  gas  -  motoren  hviner, 
og  du  er  et  med  din  bil.  Op  i  3. 
gear  -  du  nærmer  dig  svim¬ 
lende  hastigheder,  endnu  et 
sving,  ned  i  2 .  gear  og  endnu 
engang  gik  det,  men  hvad 
nu?  Et  lille  øjebliks  uopmærk¬ 
somhed.  bringer  din  bil  ud  i 
en  ukontrollabel  situation.  Du 
bliver  smidt  ud  al  banen,  og 
du  drejer  febrilsk  på  rattet  for 
at  undgå  den  visse  død.  Kort 
efter  vågner  du  -  din  bil  blev 
heldigvis  fanget  i  hegnet,  og 


du  må  starte  forfra. 
Nogenlunde  sådan  kunne 
det  gå  i  dit  første  race.  Din  tek¬ 
nik  kunne  måske  godt  blive 
lidt  bedre,  så  du  famler  efter 
"Special  Revs  racing  pro- 
gramme",  et  specialtillæg 
med  alle  de  tekniske  fiduser 
du  kunne  ønske  dig.  Hvordan 
du  går  ind  i  et  sving,  hvor 
mange  omdrejninger  du  skal 
køre  med  i  de  forskellige  ge¬ 
ar,  o.s.v.  En  virkelig  god 
hjælp  til  dig,  og  din  karrriere, 
som  racerkører.  Der  medføl¬ 
ger  også  en  fuldstændig  over¬ 
sigt  over  begge  baner,  samt 
en  forklaring  om  hvad  de  for¬ 
skellige  sving  hedder.  Et  helt 
igennem  dygtigt  forarbejde 
er  lagt  for  dagen  i  Revs  fra  Fi¬ 
rebird  Software.  Men  oven  i 
alt  dette  materiale,  (ja  det  er 
helt  overvældende),  har  du 
muligheden  for  at  være  med 
i  konkurrencen  om  at  vinde 
en  tur  til  "Monaco  Grand 
Prix".  samt  150  pund  du  kan 
bruge  mens  du  er  der .  Revs  er 
absolut  et  suverænt  program, 
der  vil  kunne  bringe  søvnløse 
nætter,  (lyder  det  ikke  godt?) 
for  hele  familien.  Spillet  er 
propfyldt  med  sjove  detaljer, 
der  gør  det  værd  at  spille .  Når 
du  først  er  kommet  i  gang, 
kan  du  næsten  ikke  holde  op 
igen.  Bare  det,  at  når  der  er 
bakker  på  banen,  kan  du  ik¬ 
ke  se  hvad  der  kommer  for¬ 
an,  er  en  suveræn  detalje. 
Det  giver  spillet  et  ekstra  pift  til 
sandfærdigheden.  Jo!  Revs. 
er  du  bestemt  godt  tjent  med, 
og  så  er  der  jo  altid  chancen 
for  at  komme  med  til  Monaco 
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Kender  du  det .  når  du  har  lo-  dens  overflade .  for  derefter  at 

adet  et  spil  ind.  startet  det.  spil-  bevæge  dig  ned  i  jordens 

let  lidt  på  det.  og  så  tænker:  dyb.  Du  er  en  kedelig  halv- 
Det  her  kan  umuligt  være  rig-  søvning  grafikdrage,  i  3  dele 

tigt  -  der  må  være  sket  en  fejl  Med  3  dele  mener  jeg.  at  når 

under  loadningen .  du  dør ,  bliver  du  splittet  ad  i  3 

Du  resetter  maskinen,  og  dele.  Du  hopper  ned  i  jorden 
prøver  lykken  en  gang  til,  og  gennem  et  krater,  og  lander 
hvad  sker  der?  Akkurat  det  på  1.  sal  i  det  underjordiske, 
samme  sindsyge  spil  som  før .  Hopper  du  ikke  frivilligt,  kom- 

Man  begynder  at  føle  sig  en  mer  mutter,  med  curlere  i  hå- 
smule  "snydt",  og  ens  næse  ret  efter  dig.  Med  sig  har  hun 
er  nu  så  lang,  at  man  skal  helt  en  fortidskølle,  og  makker  du 
ind  på  Rådhuspladsen  for  at  ikke  ret,  fortidsdunker  hun  dit 
vende .  Akkurat  sådan  følte  hoved  langt  ned  i  maven  Det 
jeg  mig.  da  jeg  testede  Willi-  tør  du  af.  og  spillet  starter  forfra 
am  Wobler  Ira  Wizard  Com-  igen ,  og  du  har  nemlig  kun  et 
puter  Games  -  et  nystartet  soft-  liv  Måske  det  eneste  virklig- 
warefirma  med  supergeniet  hedsnære  i  dette  spil.  og  det 
Tony  Crowther  (manden  bag  er  sd  malplaceret  som  noget 
Suicide  Express,  Gryphon.  Lo-  kan  være.  William  Wobler  er 
comotive  etc.),  som  hovedfor-  nemlig  så  svært,  at  et  liv 
een  og  programmøren  i  fir-  overhovedet  ikke  er  nok.  Ned 
maet.  William  Wobler  er  en  Pd  i  sal  kan  du  gå  en  vej,  og 
af  de  første  i  serien  fra  det  nye  det er  M  højre  Så  vi  går  til  høj¬ 
firma.  og  man  fristes  til  at  tro  at  re-  °g  nu  starter  det  mærkeli- 
Tony  Crowther  har  læst  for  ge  9  ud  af  1 0  gange  svæver 
mange  børnebøger .  eller  og-  en  Nilfisk-lignende  grafisk  ge- 
så  er  det  endnu  et  helhjertet  nsplejsningsfejl  rundt,  og  den 
forsøg  på  at  tjene  penge.  er  umulig  at  forcere.  Så  tæn¬ 
ker  du:  Det  er  da  ligegyldigt, 
William  Wobler  er  ikke  kun  et  jeg  springer  bare  videre  ned  i 

spil.  for  du  kan  nemlig  delta-  dybet,  ned  på  næste  etage, 
ge  i  en  kæmpe  konkurrence  Dernede  kan  du  både  gå  til 

om  1000  engelske  pund .  Det  højre  og  venstre .  Hvis  du  går  til 

gælder  her  om  at  løse  gåden  højre,  vil  du  finde  et  skilt  der 

i  dette  Arcade  Adventure  spil  peger  længere  ind  i  hulen, 

på  den  kortest  mulige  tid.  Når  Her  finder  du  skiltet  "Save  ga- 
du  har  gjort  det.  kan  du  save  me".  dette  virker  selvfølgelig 
dine  resultater  på  en  medføl-  kun  hvis  du  har  et  diskdrev. 
gende  diskette .  I  grunden  en  og  har  indsat  den  medfølgen- 

ganske  god  ide,  men  de-  de  diskette.  Nok  om  at  gå  til 
sværre  kan  kun  englændere  højre .  så  vi  går  til  venstre  i  ste- 

deltage  (igen  en  næse).  det.  Her  kommer  flyvende  frø- 

Du  starter  som  William  på  jor-  lår,  og  bugtende  ustegte  ål 


som  du  skal  undgå .  og  det  er  den  igen  -  du  forcerer  de  slat¬ 
meget  nemt .  Når  du  har  gået  ne  slanger  og  flyvende  frøer 
i  et  par  minutter  og  undgået  endnu  en  gang,  i  håbet  om  at 
tonsvis  al  disse .  kommer  du  til  de  to  ting  du  har  samlet  er  nok 
en  dør .  Denne  dør  kan  du  ik-  til  at  få  nøglen  til  døren  Men 
ke  lå  op  uanset  hvordan  du  også  denne  gang  får  du  en  Pi- 
bærer  dig  ad .  Så  går  vi  tilba-  nocchio  gonzo  (lang  næse. 
geigen.  og  hvad  så?  Det  var  red  ).  Du  er  da  bare  helt  til 
hvad  der  kunne  ske  de  9  ud  grin.  Det  er  ubestrideligt  det 
af  1 0  gange  du  starter  spillet .  mest  åndssvage  program,  jeg 
Den  tiende  gang  er  der  ingen  i  mine  livs  skabte  dage ,  har 
Nilfisk  støvsuger,  og  du  kan  smidt  mine  øjne  på .  Men  hvis 
hoppe  lige  over  på  den  an-  du  alligevel  har  smidt  dine 
den  side.  Du  tænker:  Fedt  penge  ud  på  William  Wob- 
mand !  Spillet  virker  alligevel .  ler,  skal  du  ikke  give  helt  op 
Det  var  nok  bare  mig  der  var  For  det  kan  rent  faktisk  bruges 
dum.  Men  ak!  Du  bliver  klo-  til  noget.  For  det  tørste  kan  du 
gere .  Du  fortsætter  ligeud ,  og  underholde  alle  dine  venner, 
foran  dig  er  en  hvid  flad  ting  i  umådelig  lang  tid  Dels  ved 
Den  samler  du  op.  Videre  vi-  at  de  halvdelen  af  tiden  lig- 
dere  -  nu  er  der  ved  at  ske  no-  ger  og  vrider  sig  at  grin  over 
get.  Pludselig  ser  du  en  nøgle  hvor  dårligt  det  er.  Dels  den 
hænge  oppe  under  loftet  i  hu-  tid  det  tager,  til  det  går  op  for 
len .  Du  hopper  og  springer  for  dem ,  at  det  er  helt  umuligt  at 
at  få  fat  i  den.  men  det  lykkes  spille  For  det  andet  kan  du. 
ikke.  Hmmm!  Nå  -  det  kan  hvis  du  har  en  yndlingsmelo- 
være  at  jeg  skal  have  lat  i  no-  di.  lægge  fra  1  til  3  melodier 
get  mere.  før  jeg  kan  tage  ind  på  båndet.  -  Fed  ide  til 
nøglen.  Walk-man'en.Såerderjoog- 

Vups!  Foran  dig  er  endnu  en  så  en  diskette  med,  hvis  du 
ting.  Pliiing!  Den  nupper  jeg.  skulle  stå  og  mangle  en  så- 
og  så  tilbage  til  nøglen.  End-  dan .  Husk  lige  at  den  skal  for¬ 
nu  en  gang  mislykkes  det.  matteres  før  brug.  Hvis  du  sta- 
Sikke  noget  møj  -  tænker  du .  dig  skulle  have  trang  til  at  se 
Det  kan  simpelt  hen  ikke  pas-  William  Wobler,  i  øjnene  må 
se.  at  spillet  ikke  kan  spilles,  du  hellere  bede  gangvagter- 
Det  betyder  ikke  noget  at  gra-  ne  om  at  give  dig  din 
fikken  er  dårlig,  og  at  man  er  spændetrøje  på  igen,  inden 


ved  at  blive  sindsyg  i  knop-  det  går  helt  galt. 
pen  over  den  klagende  mu-  .  _ 

sik.  En  musik  der  åbenbart  Lyd  [=1  5 

kun  er  på  få  bytes,  men  som  Grafik  j  "S?  j|  6 

skal  gentages  1000  gange.  Spænding -  3 

Du  giver  ikke  så  let  op  -  det  Action  5 

må  kunne  lade  sig  gøre.  På  Pris/kvalitet  HA! 
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JOYSTICK  TELEKINESE  PILOT  I  SNEGLEFART 


I  The  Covenant,  der  er  et  så¬ 
kaldt  arcade-adventure,  har 
du  til  opgave  at  samle  rester¬ 
ne  af  en  for  længst  heden¬ 
gangen  kultur.  Du  flyver  rundt 
i  en  lille  kugle  under  jorden 
(??!!)  i  nogle  huler,  i  alt  256 
hvis  man  skal  stole  på  omsla¬ 
get.  I  disse  huler  er  der  64  for¬ 
skellige  dyr,  og  det  er  menin¬ 
gen,  at  du  skal  samle  disse, 
og  bringe  dem  op  til  overfla¬ 
den  .  Når  dette  er  gjort,  er  pla¬ 
neten  blevet  genbefolket,  og 
du  har,  som  den  sidste  overle¬ 
vende,  gjort  din  pligt. 
Naturligvis  er  der  så  forskel¬ 
lige  forhindringer  undervejs. 
Kuglen,  du  flyver  rundt  i,  er 
styret  af  "telekinese",  der  er 
en  psykisk  kraft.  Du  kan  bru¬ 
ge  den  til  at  bevæge  et  lege¬ 
me  uden  at  have  fysisk  kon¬ 
takt  med  det .  I  praksis  foregår 
det  dog  ved  hjælp  af  et  joy- 
stick.  Apropos  styring:  Kuglen 
nærmest  svæver  rundt  på 
skærmen  i  langsomme,  blø¬ 
de  baner,  der  godt  kan  være 
lidt  (meget)  irriterende,  fordi 
det  gør  det  sværere  at  fange 
dyrene. 


Når  du  kommer  ind  i  hulen,  er 
der  et  eller  flere  dyr,  og  et  an¬ 
det  sted  noget  bedøvelses¬ 
middel.  Du  skal  så  samle  det¬ 
te  bedøvende  middel  op, 
hoppe  ud  af  din  kugle,  for 
derefter  at  affyre  et  skud  mod 
dyret  med  din  kanon.  Dyret 
dør  ikke,  men  lammes  kun  i 
nogle  sekunder.  Du  skal  så 
skynde  dig  at  hoppe  ind  i 
kuglen  igen.  og  hurtigt  flyve 
hen  over  dyret  og  samle  det 
op.  Der  er  i  spillet  inkluderet 
en  statusskærm.  Tryk  på  en 
tast,  spillet  stopper,  og  du  får 
informationer  om.  hvor  man¬ 
ge  dyr.  du  har  fanget,  din  sco¬ 
ring,  spilletiden  og  hvor  me¬ 
get  energi  du  har  tilbage. 
Spillet  har  kun  4-farve  grafik, 
og  kombinationeeme  er  lidet 
ophidsende.  Lyden  er  ikke  en 
udpræget  vinder,  men  heller 
ikke  så  dårlig,  at  spillets  ka¬ 
rakter  trykkes  helt  i  bund.D 


Grafik  7 

Lyd  7 

Action  7 

Fængslende  7 

Pris  7 


Har  du  prøvet  "Time  Pilot"  på 
Bakken  eller  Tivoli?  Hvis  du 
syntes  at  det  bare  var  alleti¬ 
ders  spil,  så  er  Space  Pilot  II 
efterfølgeren.  Efterfølger  kal¬ 
der  jeg  det  kun  fordi  det  kom 
efter  "Time-Pilot""  ikke  fordi 
det  med  værdighed  kan  kal¬ 
des  efterfølger  eller  alløser. 
Når  spillet  er  loadet  ind.  kom¬ 
mer  der  en  oversigts-skærm 
der  forklarer  dig  om  de  for¬ 
skellige  funktioner  og  kombi¬ 
nationer,  og  det  er  ikke  man¬ 
ge.  Bl.a.  kan  du  trykke  F-5. 
der  bevirker  at  en  såkaldt 
"Info-screen""  dukker  frem. 
Denne  informationsskærm 
fortæller  dig  hvordan  din  joy- 
stick  virker,  hvis  du  skulle  væ¬ 
re  i  den  situation  at  du  ikke 
kunne  huske  det.  Du  starter 
spillet  med  F-7.  og  efter  at  ha¬ 
ve  valgt  antal  spillere,  får  du 
meldingen  "Stage  1".  Den 
besked  har  du  i  ca .  2  minutter 
(båndversion),  ja  hurtigt  går 
det  i  hverttilfælde  ikke...  Og 
så  går  det  løs,  troede  du.  Spil¬ 
let  er  desværre  så  langsomt, 
at  du  bliver  i  tvivl  om  der  er 
noget  galt  med  din  computer, 
eller  den  virkelig  skal  stå  så¬ 
dan  og  hakke  i  det.  Det  kun¬ 
ne  da  også  gå,  hvis  det  ikke  li¬ 
ge  var  for  den  detalje,  at  sæt¬ 
ter  du  auto-fire  på  dit  joystick, 
får  du  AUTOMATISK  highsco- 


re! !  Inspirationen  til  grafikken, 
må  bestemt  stamme  fra  en 
ældgammel  rumfilm,  for  ma¬ 
ge  til  amatø... 

Handlingen  i  Space  Pilot  II 

foregår  ude  i  rummet,  hvor 
det  gælder  om  at  skyde  på 
en  stadig  strøm  af  rumskibe. 
Når  tiden  er  løbet  ud  (angivet 
i  højre  hjørne  med  en  rød 
streg),  kommer  du  videre  til 
næste  "stage".  Her  bliver  det 
tydeligt  demonstreret,  at  du 
bliver  kastet  rundt  i  tiden, 
frem?  eller  tilbage?  Frem  toner 
igen  -  Gør  dig  klar  til  "Stage 
2".  og  sådan  fortsætter  det. 
Du  kan  opbygge  en  kraftig 
selvtillid,  hvis  du  har  mindre¬ 
værdskomplekser  over  dårli¬ 
ge  highscores  i  andre  spil. 
Pointene  tæller  nemlig  ufatte¬ 
ligt  hurtigt,  og  det  er  nok  det 
eneste  hurtige  i  dette  spil .  Jeg 
må  med  sorg  melde,  at  du 
nok  vil  blive  frygteligt  skuffet, 
hvis  du  brænder  lommepen¬ 
gene  af  på  dette  spil. 

Enten  kom  det  2  år  for  sent,  el¬ 
ler  også  er  det  specielt  kon¬ 
strueret  til  meget  langsomme 
mennesker. 
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VI  mangler  COMMODORE  64 
programmer 

Har  du  lavet  nogle  gode 
programmer,  og  kunne  du 
tænke  dig  at  tjene  nogle  hur¬ 
tige  kroner?  Så  send  dem 
straks  ind  til  SOFT  SPECIAL. 
Vi  kan  tilbyde  skattefrie  ho¬ 
norarer,  helt  op  til  1000  kro¬ 
ner. 

Send  dit  superprogram  til: 
SOFT  SPECIAL 
St.  Kongensgade  72 
1 264  København  K. 


FUGLEANGREB 
UNDER  JORDEN 


■  Firebird  -  softwarefirmaet 
vores  søsterblad  "Alt  om  Da¬ 
ta"  omtaler  i  nr.  1 186,  har  net¬ 
op  udgivet  deres  nyeste  spil  i 
Arcade  Adventure  serien. 
Underwurlde  hedder  spillet, 
og  er  for  nyligt  blevet  omfor¬ 
met  til  64'eren  fra  den  vel¬ 
kendte  Spectrumversion. 

Det  er  jo  efterhånden  på  mo¬ 
de  at  skulle  overgå  hinanden 
i  sjove  og  spændende  spil. 
Men  naturligvis  bliver  spillene 
da  også  stadig  flottere  og  me¬ 
re  prangende. 

Firebird  formår  imidlertid  at 
producere  en  stabil  kvalitet, 
for  en  lille  men  beskeden  slat 
penge.  Når  du  har  proppet 
(indlæst  red.)  programmet  i 
computeren,  og  det  hele  bare 
kører  som  smurt  i  controller¬ 
fedt,  dukker  et  skærmbilelde 
op,  hvor  du  kan  vælge  3 
funktioner.  Vi  vælger  den  sid¬ 
ste,  der  sætter  eventyret  i 
gang.  Vi  bliver  kastet  ind  i  en 
slags  stue.  Der  er  nogle  møb¬ 
ler  rundt  omkring,  som  du  skal 
hoppe  over  for  at  komme  vi¬ 
dere.  Her  begynder  dine 
trængsler,  for  du  bliver  i  hele 
spillet  chikaneret  af  4  slatne 
fugle,  der  i  øvrigt  ligner  noget, 
katten  har  slæbt  ind.  Disse 
fugle  (ja.  kald  dem  hvad  du 


vil),  er  noget  at  det  mest  emsi¬ 
ge,  jeg  i  mit  liv  har  været  ude 
for.  Et  kvalificeret  gæt  går  ud 
på,  at  programmøren  har 
været  oppe  at  skændes  med 
sin  kone,  da  han  lavede  spil¬ 
let.  for  de  kan  virkelig  gøre  li¬ 
vet  surt  for  enhver  Arcade  Ad¬ 
venture  entusiast .  Du  starter  et 
sted,  hvor  grafikken  lægger 
op  til  noget  godt,  og  du  hop¬ 
per  over  det  første  møbel.  Ud  i 
det  helt  store  vilde,  men  så 
kommer  disse  forp.  fugle 
og  basker  til  dig .  Du  ryger  helt 
tilbage,  hvor  du  kom  fra.  Ikke 
nok  med  det.  men  de  bliver 
ved  og  ved.  Hver  gang  en  af 
disse  "syge"  fugle  rører  ved 
dig,  tilter  du  rundt,  så  man 
kunne  bruge  dig  som  ventila¬ 
tor  til  en  filmoptagelse  Det 
bliver  du  meget  hurtigt  træt 
af,  medmindre  er  er  ufatteligt 
tålmodig.  Disse  emsige  grim¬ 
me  fugle  er  et  klart  minus  ved 
spillet,  men  uden  dem  var  der 
ikke  meget  action .  Når  du  i  1 0 
min.  har  kæmpet  med  at 
komme  fri  af  fuglene,  kan  du 
gå  videre. 

Der  er  over  20  forskellige  le¬ 
vels,  og  du  befinder  dig  på  le¬ 
vel  16,  når  du  starter.  Hvis  du 
fortsætter,  hvor  fuglene  ende¬ 
lig  slipper  dig  et  kort  øjeblik. 


kan  du  ramle  ned  i  drypstens¬ 
hulerne.  Nede  i  hulerne  er  der 
ikke  noget  særligt  spænden¬ 
de.  det  er  på  vejen  ned,  det 
sjove  sker.  Der  står  skattekister 
overalt,  lige  til  at  snuppe,  hvis 
du  altså  er  hurtig  nok  til  at 
springe  over  og  få  fat  i  dem 
Hvis  du  ikke  er  det,  vil  du  snart 
efter  lande  på  bunden  af 
drypstenshulen.  Nu  tror  du  li¬ 
ge,  at  du  er  sluppet  af  med 
fuglene,  men  "you  must  wait 
and  see ' ' .  Der  går  nemlig  ikke 
lang  tid.  så  er  de  der  igen.  Li¬ 
ge  så  irriterende  som  før.  Din 
enesfe  mulighed  for  at  kom¬ 
me  ud  af  drypstenshulen  er  at 
hoppe  op  på  et  af  kraterne, 
og  tage  den  første  boble  mod 
"Østerport",  nå  ikke.  Så  tag 
den  første  mod  toppen.  Mee- 
en  det  skal  fuglene  nok  sørge 
for,  du  ikke  kan.  Så  kan  du 
igen  bmge  tid  på  at  slippe 
væk  fra  dem.  Endnu  en 
ulempe  ved  Underwurlde  er, 
at  står  du  lige,  hvor  billedet 
scroller  mellem  to  afdelinger, 
og  fuglene  angriber,  vil  bille¬ 
det  hoppe  frem  og  tilbage. 
Det  er  en  uheldig  detalje.  Så 
hvis  du  ikke  er  så  nem  at  for¬ 
virre,  og  du  ikke  har  noget 
imod  emsige  fugle,  så  kan  du 
roligt  købe  Underwurlde  der 


i  grunden  er  et  sjovt  spil.O 
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FLUGT  I  ÆGYPTEN  BANG  PÅ  MOTORVEJEN 


■  Imhotep  hedder  del  nyeste 
spil  fra  Ultimate.  Du  bliver 
bragt  til  det  gamle  Ægypten, 
til  et  århundrede  helt  tilbage 
til  dengang  din  far  var  ung. 
Her  skal  du  kæmpe  mod  en 
hærskare  af  flyvende  ægyp¬ 
tere.  De  har  fundet  en  fugl 
frem,  startet  den  op,  og  mstet 
til  krig  (ups!  endnu  et  stjerne¬ 
krigsprojekt?)  Du  flyver  selv 
rundt  på  en  sådan  fugl,  og 
hvor  den  kom  fra,  vides  ikke. 
Her  oppe  fra  luften  skal  du 
skyde  disse  gamle  ægyptere 
ned,  og  se  at  samle  dig  nogle 
point. 

Ligesom  du  tror,  du  har  klaret 
dem  alle,  kommer  der  nogle 
flere .  Undervejs  i  din  flyvning, 
passerer  du  flotte  pyramider, 
palmer,  ægyptere  (på  jor¬ 
den),  og  en  masse  andre 
sjove  ting .  Det  er  dog  kun  et  af 
mange  levels  i  dette  spil.  Idet 
Imhotep  starter  op.  kan  du 
vælge  det  level,  du  vil  starte  i. 
En  lækker  detalje,  der  aldrig 
får  spillet  til  at  være  kedeligt . 
Du  har  5  liv  at  lege  med  i  hvert 
spil,  og  det  er  helt  klart  på¬ 
krævet,  for  du  er  et  nemt  byt¬ 
te  der  på  ryggen  af  din  "bir- 
die ' ' .  Din  mission  grundet  i  en 
lang  historie,  så  jeg  vil  kort 
give  dig  essensen  af  den.  Der 
var  en  gang  en  Farao,  der 
l  hed  Zoser.  Han  var  en  meget 
dygtig  mand,  og  alle  havde 
tOtro  tO  hans  måde  at  styre  lan¬ 
det  på.  Det  gik  også  ganske 
godt  i  ni  år,  men  det  tiende  år 
gik  det  galt.  Nilen  gik  ikke 
over  sine  bredder,  og  hele  hø¬ 
sten  blev  ødelagt.  Ægypterne 


slog  det  hen  i  starten,  men  da 
reserverne  var  ved  at  slippe 
op.  blev  der  panik.  Han  måt¬ 
te  gøre  noget.  Så  gik  han  til 
dig,  den  store  Imhotep,  men 
ikke  engang  din  visdom  kun¬ 
ne  hjælpe  ham.  Du  ved  dog, 
hvad  der  skal  gøres,  og  du 
drager  straks  ud  på  din  missi¬ 
on.  for  at  finde  de  vise  bøger 
om  Nilens  hemmeligheder. 

Et  ganske  morsomt  spil.  ikke 
noget  man  sidder  og  klapper 
i  sine  små  hænder  af  glæde 
over,  men  aUigevel  et  ganske 
godt  spil,  i  den  billige  ende. 
Grafikken  er  lidt  grov  i  kanter¬ 
ne,  men  til  at  holde  ud  at  se 
på.  Ellers  tror  jeg  ikke,  der  er 
noget  at  udsætte  på  spUlet. 
som  sådan. 

Foruden  det  spil.  du  køber,  får 
du  også  et  rensebånd  til  din 
båndoptager .  Så  hvis  du  mod 
forventning  ikke  kan  se  no¬ 
gen  anden  grund  til  at  købe 
Imhotep,  så  er  der  en  her. 
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■  Highway  Encounter  fra 

Vortex  Software  giver  dig  30 
skærme.  Eller  1  stor.  Ellersagt 
bedre:  30  skærmbilleder  ud¬ 
gør  en  lang  vej.  en  forladt  mo¬ 
torvej  i  fremtidsland. 

Med  en  lasertron  skal  du 
krydse  op  og  ned  ad  vejen, 
alt  imens  en  række  angriben¬ 
de  aliens  fra  det  ydre  rum, 
skal  zappes  i  småstykker. 
Splat  på  motorvejen.  Lyder 
Highway  Encounter  som  et 
fedt  spil?  Det  er  det .  Også  selv 
om  du  måske  har  hørt  den 
der  med  at  skyde  aliens  i 
smadder  et  par  gange  før. 
Trods  den  måske  lidt  uorigi¬ 
nale  baggrundshistorie  har 
forfatteren  Costa  Panyi  for 
Vortex  formået  at  skabe  et  in¬ 
teressant  spil.  Costa  er  også 
manden  bag  Android  One 
og  Android  Two,  men  han 
betragter  selv  Highway  En¬ 
counter  som  mesterværket. 
Det  gør  vi  andre  også,  for  i 
Highway  Encounter  benyttes 
en  grafik  ikke  ulig  den  Ultima¬ 
te  har  smidt  i  f.eks.  Alien  8  og 
Knight  Lore.  Tilmed  er  der  en 
aktiv  kampduel  på  liv  og 
død,  med  hurtige  aliens  i  læk¬ 
ker,  stærk  grafik .  Der  er  tempo 
i  Highway  Encounter.  noget 
mange  Knight  Lore  og  Alien  8 
fans  måske  kan  have  savnet 
en  del. 

Ud  over  at  skyde  igennem  30 
motorvejs-zoner,  skal  du 
skubbe  dine  ekstra  liv  (Vor- 
trons)  med  dig.  Disse  skal  også 
benyttes  mod  de  fjendtlige 
væsener,  og  det  hele  skal  gå 
tjept:  Der  er  nemlig  en  tids¬ 


begrænsning  indbygget  i 
spillet.  En  anden  begræns¬ 
ning  er  skydningen.  Laser- 
trons  skal  lades  op,  og  er  du 
ikke  forsigtig,  kan  du  finde  dig 
selv  i  en  situation,  hvor  aliens 
krydser  ind  og  omringer  dig, 
samtidig  med  at  din  lasertron 
lader  op.  Hvor  sørgeligt! 
Highway  Encounter  er  til  bå¬ 
de  Spectrum  og  Amstrad  en 
af  de  virkeligt  gode  titler  på 
markedet.  Grafikken  er  læk¬ 
ker  og  yderst  detaljeret.  Ly¬ 
den  er  rimelig.  Og  hver  zone 
er  lige  en  tand  sværere  end 
den  foregående.  Det  er  nemt 
at  komme  i  gang  med,  men 
svært  at  overstå.  Et  anbefalel¬ 
sesværdig!  spil,  der  helt  klart 
bør  høre  hjemme  i  enhver 
spilsamling.  Creme  de  la  cre¬ 
me.  som  de  siger  i  Sverige, □ 
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zzzsqidr  raz  raz  ssssssss  "AN 
two  zero  nine  approaching 
Kennedy  airport.  request  cle- 
arence  for  landing!!"  AN  two 
zero  nine  climb  to  1000  feet, 
you  are  cleared  for  landing. 
Weather  is  fine  -  outside  is  mi¬ 
nus  sixtytwo  degree  celcius. 
You  will  reach  destination  wi- 
thin  00.05  minutes.  roger"" 
schratch  ouiiiii.  ksss  phisttt. 

Nogenlunde  sådan  kunne  en 
samtale  finde  sted  i  MicroPro- 
se's  Kennedy  approach  nej 

ikke  et  flysimulator  program, 
denne  gang  er  du  "in  char¬ 
ge".  Det  vil  sige  at  du  er  fedt 
plantet  i  en  læderstol  på  top¬ 
pen  af  lagkagen.  Du  befinder 
dig  i  et  kontroltårn,  med  et  su¬ 
verænt  overblik  over  utallige 
fly,  der  kan  finde  på  alle  mu¬ 
lige  og  umulige  ting,  inden  du 
får  givet  dem  alle  tilladelse  til 
at  lande.  Bl.a.  kan  dine  fly 
pludselig  løbe  tør  for  benzin, 
men  du  bliver  naturligvis 
varslet  i  god  tid.  Grafikken  er 
virkelig  lækker,  men  det  er  li¬ 
ge  før  du  taber  både  næse  og 
mund,  når  du  hører  hvordan 
MicroProse  har  formået  at  tryl¬ 
le  med  lyden.  Et  minus  ved 
dette  spil  er  at  båndversionen 
skal  loades  ind,  før  du  tager 
din  middagslur,  skifter  lille¬ 
bror,  eller  skal  spise  en  meget 
stor  middag.  Når  du  har  loa- 
det  side  1  ind,  kan  du  indtaste 
dit  valg,  plug  din  joystick  i  port 
2,  og  vrid  den  rundt  som  du 
nu  lyster.  Hvis  du  er  heldig,  så 
findes  de  lufthavne  du  har 
valgt  at  beskæftige  dig  med. 


først  på  side  2.  Men  er  uheldet  husk  nu  at  bruge  den  rigtige 
med  dig.  så  giv  lillebror  tør-  Code  Access.  Hvis  du  bruger 
mælk  og  støv  ham  af.  så  skul-  den  forkerte  går  der  "kage"  i 
le  vi  være  klar  til  at  spille .  Du  din  computer,  og  du  kan  loa- 
indtaster  din  (CACN-  Compu-  de  det  hele  ind  'en  gang  til.  Vi 
ter  Access  Code  Number).  går  ud  fra  at  det  går  godt  alt 


Alt  om  Data  s  Top-25  Billiste  over  Danmarks  most  populære  programmer  til 
hjemmecomputere  bygger  pd  oplysninger  tra  50  computortorretninger  stor¬ 
magasiners  computeratdelinger  og  boghandlere  landet  over 
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sammen,  og  så  er  vi  klar.  I 
toppen  af  skærmbilledet  har 
du  din  "message  screen"  der 
fortæller  dig  hvordan,  hvor¬ 
for.  hvad,  hvornår  o.s.v.  For¬ 
uden  den,  har  du  en  lidt  rodet 
oversigt  over  hvilke  fly  der  er  i 
luften.  Hvis  der  er  mulighed 
for  at  2  af  flyene  "Chrasher", 
vil  du  straks  blive  gjort  op¬ 
mærksom  på  dette  ved  at  fly¬ 
enes  ID-nr.  blinker.  Du  styrer 
flyene  ved  hjælp  af  en  kæm¬ 
pe  cursor.  Bevæg  cursoren 
hen  over  et  af  flyene  der  er  på 
vej  hen  over  skærmen,  og 
tryk  fire  for  at  manøvrere.  Det 
vil  du  på  ganske  kort  tid  kun¬ 
ne  lære.  Når  du  har  givet  dit 
fly  en  instruktion,  følges  den 
op  af  en  rigtig  svarmelding  fra 
dit  fly.  Nu  er  du  i  gang,  til  støt¬ 
te  før,  og  løbende  under  spillet 
har  du  en  udførlig,  men  ufat¬ 
teligt  rodet  beskrivelse  af  alle 
funktioner. 

Kennedy  Approach  udmær¬ 
ker  sig  først  og  fremmest  ved 
den  meget  fine  tale.  der  er  i 
spillet.  Du  kan  høre  hvert  et 
ord  klart  og  tydeligt.  Blot  skal 
du  vide.  at  hvis  du  er  action¬ 
fanatiker,  kan  dette  spil  nok 
ikke  holde  din  interesse  fan¬ 
get  i  særlig  lang  tid.  Ellers  et 
fornuftigt  køb,  idet  et  spil  af 
denne  type  sjældent  ses. 
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ENDNU  MERE  DØD!  KRIGSHERRE  EVENTYR 


I  vort  søsterblad  "Computer" 
nr.  1  blev  Brian  Jacks  Super¬ 
star  Challenge  testet  i  sin 
Commodore  udgave.  En 
ubehagelig  attære,  selv  tor 
det  ellers  gravede  testhold. 
Overskrift:  'Slatten  1  O-kamp". 
Citat:  "Superstar  Challenge  er 
vel  nok  uden  sidestykke  det 
dårligste  sportspil  til  C64" .  Og 
gennemsnitskarakter?  6! 

Nu  har  producenten  vovet 
endnu  et  øje  og  lanceret 
Amstrad-versionen  at  det  fa¬ 
møse  sportspil.  Med  endnu 
mindre  held! 

Grafikken  har  nået  elendig¬ 
hedens  lavmål.  Lyden  er  næ¬ 
sten  væk .  Og  for  at  sætte  prik¬ 
ken  over  i'et,  har  Martech 
gjort  betjeningen  endnu  mere 
vanskelig. 

Brian  Jacks  Superstar  Chal¬ 
lenge  skal  undgås.  Paknin¬ 
gen  er  lækker,  men  teksten 
bagpå  fremkalder  kun  et  bil¬ 
ligt  grin:  "One  of  the  most  ex- 
citing,  addictive  and  chal- 
lenging  games! ' '  Ikke  for  os,  i 
hvert  fald .  .  . 

Vil  du  forsøge  med  bomøvel¬ 
ser,  armbøjninger  og  slige 
ting,  er  du  velkommen  til  at 
købe  Brian  Jacks  Superstar 
Challenge. 

Men  som  med  Commodore- 
versionen  må  vi  gentage:  Vi 
gider  i  hvert  fald  ikke.D 
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LYT  TIL 
DATAVOICE 


Altom 

DflTR 


Hver  lørdag  kl. 
17-18  på  FM 
102,8  MHz  i 
Storkøbenhavn 


Danmarks 

hotteste 

dataradio 


Produceres  i  samarbejde 
mellem  The  Voice  og 
månedsbladet  "Alt  om  Data” 


■  Du  befinder  dig  i  Skotland 
omkring  år  100.  De  romerske 
legionærer  trænger  op  gen¬ 
nem  Brittanien  og  slår  alle  for¬ 
søg  på  modstand  tilbage.  Til 
sidst  står  de  ved  den  skotske 
grænse,  og  her  bliver  de 
holdt  tilbage  af  en  hær  ledet 
af  en  stærk  nordisk  krigsher¬ 
re.  Begge  hære  kæmper  ind¬ 
ædt  mod  hinanden.  Da  det 
viser  sig.  at  de  er  lige  stærke, 
drager  de  deres  respektive 
guder  med  ind  i  opgøret. 

For  at  krigen  ikke  skal  føre  til 
jordens  undergang,  beslutter 
guderne  at  stille  de  to  hære 
på  en  opgave.  De  skal  ud¬ 
vælge  deres  bedste  mand, 
der  så  vil  blive  transporteret 
gennem  tid  og  rum  til  en  an¬ 
den  verden.  Den,  der  først 
vender  tilbage  til  den  virkeli¬ 
ge  verden,  vil  blive  erklæret 
som  sejrherre.  Romerne  væl¬ 
ger  deres  øverste  centurion 
og  skotterne  deres  krigsherre. 
Din  opgave,  som  krigsherren, 
er  nu  at  finde  tilbage  til  den 
virkelige  verden. 

Warlord  fra  Interceptor  er  de¬ 
res  5.  adventurespil  til  Am- 
strad .  Lavet  af  de  samme  per¬ 
soner  med  de  samme  udvi¬ 
klingsprogrammer.  Grafik¬ 


ken  og  sprogfortolkeren  er 
konstrueret  på  nøjagtig  sam¬ 
me  måde  som  tidligere.  Det 
eneste,  der  er  ændret,  er  altså 
selve  handlingen.  Den  må  til 
gengæld  siges  at  være  origi¬ 
nal  denne  gang. 

De  enkelte  illustrationer  er 
som  sagt  udført  på  samme 
måde  som  tidligere,  men  der¬ 
med  ikke  sagt,  at  de  er  af 
samme  kvalitet.  Interceptor 
har  altid  fået  gode  karakterer 
for  deres  grafik,  og  denne 
gang  har  den  kære  Terry 
Greer  gjort  sig  ekstra  umage. 
Billederne  er  uhyre  flotte  med 
en  superudnyttelse  af  Am- 
strads  4-farve  mode.  Smukt 
arbejde! 

Den  eneste  anke  ved  dette 
adventure  er  faktisk  sprogfor¬ 
tolkeren.  Den  er  temmelig 
dårlig  og  forstår  tit  ikke  selv 
de  mest  oplagte  ordrer,  som 
f.eks  PUT.  Mit  forslag  til  Inter¬ 
ceptor:  Bmg  noget  tid  på  at 
udvikle  en  ny  sprogfortolker, 
før  I  går  igang  med  næste 


adventure. 

Grafik:  1 1 
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øft  15 


Selv  om  der  er  5 
dage  endnu  til 
juleaften,  luk¬ 
ker  SOFT  Speci¬ 
al  allerede  nu 
op  for  godte¬ 
posen.  Vi  åbner 
julegaveballet 
med  den  kom¬ 
plette  løsning  til 
Spiderman. 
Supereventyret 
fra  Adventure 
International. 


■  Har  du  en  Commodore  64. 
C 1 6.  PLUS4,  Spectrum.  BBC  el¬ 
ler  Electron  samt  eventyret 
Spiderman  fra  Adventure  In¬ 
ternational?  S å  hæng  på  de 
næste  par  sider,  hvor  alle  ed¬ 
derkoppens  genvordigheder 
vil  blive  afsløret .  Er  du  usikker? 
Så  lad  SOFT  Special  føre  dig 
sikkert  i  havn  Løsningen  til 
Spiderman  - '  Trom  all  os  us  - 
to  all  of  you". 

Så  går 
det  løs 

Du  er  Spiderman.  med  licens 
til  at  kravle  på  vægge .  Du  står 
i  en  høj  oplyst  gang.  hvor  der 
til  højre  for  dig.  er  et  mm  med 
en  vugge,  og  noget  sand. 
SAND!  mumler  du  højlydt  -  dit 
hjerte  begynder  at  banke 


hurtigere,  og  du  mærker 
svedperlerne  pible  frem  på 
din  pande!  Det  er  din  ærke¬ 
fjende.  '  'Sandmann  ".  Spørgs¬ 
målene  sviner  rundt  i  hovedet 
på  dig  -  hvad  mon  han  gem¬ 
mer  i  vuggen,  og  hvordan 
undgår  du  at  vække  hans 
dødelige  opmærksomhed? 
Pludselig,  mens  dit  blik  glider 
nervøst  hen  over  loftet,  går  det 
op  for  dig  -  LOFTET!  Med  for¬ 
sigtige  tag  kravler  du  op  på 
loftet,  "climb  roof".  Et  skridt 
vest,  og  ha  -  du  har  snydt 
"Sandman"!  Mens  du  hæn¬ 
ger  over  hovedet  på  din  fjen¬ 
de,  undersøger  du  febrilsk 
vuggen,  "exam  crypt".  Du 
finder  hurtigt  en  formular  som 
du  tager  til  dig.  Effektiv  som 
du  er.  checker  du  lige  vug¬ 
gen  efter  en  gang  til,  og  nu 


finder  du  en  "gem" .  Det  kan 
betale  sig  at  være  grundig. 
Roligt  kravler  du  ud  af  tum¬ 
mel  og  ned  på  gulvet .  Pyh ! 

Mødet  med 
Madam  Web 

Med  sikre  skridt  går  du  nu 
nord  langs  gangen,  indtil  du 
står  ansigt  til  ansigt  med  den 
kære  "Madame  Web".  Hun 
sidder  og  venter  på,  at  du 
kommer  med  alle  '  'gems"  du 
finder,  og  lægger  dem  for 
hendes  fødder. 

Du  må  videre  i  din  søgen,  og 
går  nu  ned  af  gangen  igen. 
Du  kommmer  til  en  elevator. 
Du  prøver  at  kalde  på  eleva¬ 
toren  ved  at  trykke  på  knap¬ 
pen.  Men  der  sker  intet!  Hur¬ 
tigt  fatter  du,  at  den  må  sidde 
fast  et  sted.  og  i  desperation 
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samler  du  al  din  styrke  og  åb¬ 
ner  med  vældig  kraft  eleva¬ 
torskakten,  "opendoor".  For¬ 
sigtigt  træder  du  ud  i  skakten. 
Et  hurtigt  eftersyn  på  hver  eta¬ 
ge  torvisser  dig  om,  at  der  i  det 
mindste  ikke  er  fjender  gemt 
her.  Men  snarere  nogle 
"gems' '  ,som  du  finder  ved  at 
undersøge  HELE  skakten  nøje¬ 
re,  '  'exam  niches" .  Nu  bevæ¬ 
ger  du  dig  op  på  anden  sal, 
hvor  der  er  en  gang  magen  til 
den  første.  Det  sydligste  mm 
viser  sig  at  indeholde  nogle 
kemikalier.  Er  de  mon  farlige? 
Du  tøver  ikke  et  minut,  men 
tager  resolut  kemikalierne, 
uden  at  tænke  på  dit  eget  ve 
og  vel.  Sagen  fremfor  alt!  Ke¬ 
mikalierne  skal  blandes,  så 
du  må  finde  et  laboratorium, 
og  hurtigt!  Du  går  nord,  nord 
og  nord  igen  -  og  til  din  lettel¬ 
se  er  her  et  laboratorium.  Som 
den  dygtige  videnskabs¬ 
mand  du  er,  mixer  du  de  far¬ 
lige  kemikaler.  Du  har  nu 
midlet  til  at  uskadeliggøre 
"The  Lizard",  din  anden  ær¬ 
kefjende.  som  du  lige  så  et 
glimt  af  på  stueetagen . '  'Exo- 
tic  Chemicals"  venter  du  lidt 
med  -  de  skal  først  bruges  se¬ 
nere. 


sved.  Du  konstaterer  nu,  at 
"Ringmaster"  ikke  eksisterer 
mere.  Endnu  engang  har  din 
formidable  intelligens  reddet 
dig  fra  en  tilsyneladende 
håbløs  situation!  Du  begynder 
at  kunne  smage  sejrens  sød¬ 
me!  Men  tag  dig  i  agt,  Spider- 
man  -  din  opgave  er  langt  fra 
løst!  Beslutsomt  kravler  du  op 
på  computeren, '  'go  compu¬ 
ter".  Du  kører  programmet  i 
computeren,  "type  run"  (hvil¬ 
ket  program?! !).  Pressen 
mangler  stadig  væk  950  kilo 
for  at  kunne  starte?!  Der  er  alt¬ 
så  en  presse  et  eller  andet  sted 
i  bygningen!  Igen  er  du  klar 
over  sagens  alvor,  og  haster 
ned  til  "Madame  Web"  med 
dine  fundne  skatte.  Lige  in¬ 
den  du  træder  ind  til  mada¬ 
men.  opdager  du  at  en  mand 
af  vand  står  til  højre  for  dig  - 
"Hydroman".  I  rummet  til 
venstre  er  der  en '  'biogem ' '  - 
men  også  et  "Natter  energy 
egg  " .  Du  ved  at  et  sådant  æg 
er  direkte  dødbringende. 
Endnu  en  række  umulige  op¬ 
gaver!  Nå  men  Spiderman 
har  indtil  nu  klaret  alle  skære¬ 
ne,  så  dette  kan  du  nok  også 
tackle! 


hvis  du  nu  lader  temperatu¬ 
ren  falde,  så  det  bliver  kolde¬ 
re.  Hvad  vil  der  så  ske  med 
"Hydroman"?!  Med  ivrige 
hænder  ændrer  du  på  termo¬ 
staten,  så  det  bliver  koldere, 
"lower  temp".  Du  aflæser  li¬ 
ge  termostaten  -  det  er  ikke 
koldt  nok,  Brr!!  Så  fanger  no¬ 
get  andet  din  opmærksom¬ 
hed  -  et  maleri.  Beundrende 
står  du  og  nyder  billedet,  da 
du  bemærker  en  lille  uregel¬ 
mæssighed  i  overfladen.  Hur¬ 
tigt  og  ubarmhjertigt  flænser 
du  det  før  så  flotte  billede  fra 
hinanden,  "rip  painting". 
Ned  på  gulvet  daler  der  et 
stykke  papir  -  ved  alle  spider- 
manske  dæmoner!  -  det  er 
da  ikke ...  -  Jo,  det  er  formu¬ 
laren.  du  skal  bruge  for  at 
kunne  lave  net!  Du  har  des¬ 
værre  ikke  tid  til  at  hvile  på 
laurbærrene.  Et  bord,  der  står 
henne  i  hjørnet,  skal  nemlig 
også  underkastes  en  nærme¬ 
re  ransagning, '  'exem  desk ' ' . 
her  finder  du  nok  en  "gem". 
Sikker  på  at  denne  etage  nu 
er '  'clearet ' ' .  forlader  du  den . 
Nu  er  det  vist  tid  til  at  besøge 
"Madame  Web"  igen. 

Nu  må  det  vist  være  på  tide  at 
kigge  til  "Hydroman".  Du  ser 


"Mysterio's"  spejlbillede!  Du 
vender  dig  om  i  et  nu,  men  ser 
kun  et  vindue.  De  bange 
anelser  begynder  at  komme 
igen,  idet  du  kravler  ud  af  vin¬ 
duet,  "climb  window".  Her 
på  ydersiden  af  bygningen 
nyder  du  den  friske  luft  for  et 
øjeblik,  før  du  fortsætter. 

Ud  i  den 
blå  luft 

Med  et  vældigt  spring, 
'  'jump ' ' ,  hopper  du  så  at  sige 
ud  i  den  blå  luft.  Dette  kan 
kun  lade  sig  gøre,  fordu  DU  er 
Spiderman.  Her  møder  du 
pludselig  "Mysterio",  dersom 
et  lyn  fra  en  klar  himmel  står 
foran  dig.  men,  der  er  noget 
galt?!  Han  gør  jo  ikke  noget?! 
Kan  du  mon  stole  på ,  at '  'My¬ 
sterio"  er  harmløs?  Åbenbart, 
for  han  forholder  sig  jo  fuld¬ 
stændig  rolig.  Det  er  rart  at  vi¬ 
de,  at  alle  ikke  er  ude  efter 
ens  skalp!  Herude  midt  i  luf¬ 
ten,  har  du  jo  muligheder  for 
at  finde  mm,  der  indefra  byg¬ 
ningen  ikke  kunne  nås.  Med 
en  udstrakt  arm  føler  du  dig 
frem,  først  nord,  så  syd,  ''feel 
north/south ' ' .  Pludselig  får  du 
fat  i  en  vindueskarm  og  krav¬ 
ler  ind.  Her  er  endnu  en 


opspind 


Sådan  klarer 
du  Ringmaster 

Du  går  tilbage  til  skakten, 
men  på  vejen  derhen  opda¬ 
ger  du  et  andet  mm '  'Compu¬ 
ter  room"  (aha!  det  lyder  jo  til¬ 
talende).  Herinde  venter 
'  'Ringmaster ",  en  anden 
dødsfjende,  på  dig.  Med  sine 
hypnotiske  evner  føler  han  sig 
sikker,  men  du  har  situatio¬ 
nen  under  kontrol.  Uden  for 
mmmet  lukker  du  dine  øjne! 
Du  går  et  skridt  mod  vest.  og 
er  nu  i  selskab  med  '  'Ringma¬ 
ster"  .  Men  han  kan  ikke  gøre 
noget.  Stadig  med  lukkede 
øjne  presser  du  knob  indad, 
"press  knob",  som  gjaldt  det 
livet,  og  så  drejer  du  på  den, 
"tum  knob  ".Meden  kraftan- 
stengelse  åbner  du  øjnene, 
der  er  klistret  sammen  af 


Af  sted  ud  i  skakten  igen  og 
opad.  HOVSA!  Du  kan  plud¬ 
selig  ikke  komme  højere  op? 
Du  lægger  nakken  tilbage  og 
kigger  opad  og  ser  -  bunden 
af  elevatoren.  Aha!  Så  det  er 
her,  den  sidder  fast!  Igen  må 
du  samle  alle  dine  spider- 
manske  kræfter,  og  skubbe 
bunden  af  elevatoren  opad, 
"push  elevator".  Det  lykke¬ 
des!  Du  kravler  nu  op  på  aller¬ 
sidste  etage,  den  der  før  var 
spærret  på  gmnd  af  elevato¬ 
ren.  Her  er  også  en  niche,  og 
mon  ikke  den  også  indehol¬ 
der  en  "gem"?  Inde  i  dette 
nye  mm,  er  noget  af  det  første, 
du  lægger  mærke  til.  en  ter¬ 
mostat  .  Hurtigt  finder  du  ud  af , 
at  man  kan  ændre  på  det,  så 
det  bliver  enten  varmere  eller 
koldere  i  bygningen.  Jamen, 


dig  omkring  i  mmmet.  men 
der  er  ikke  andet  end  en  issta¬ 
tue  og  et  frosent  akvarium. 
Med  et  kynisk  smil  om  mun¬ 
den  tænker  du  på  "Hydro¬ 
man  "  og  hans  iskolde  skæb¬ 
ne.  .  Så  er  det  akvariets  tur¬ 
du  tager  det  og  lægger  det 
hos  "Madame  'Web".  Dugår 
med  selvsikre  skridt  hen  mod 
skakten  endnu  engang,  op  til 
anden  sal.  Nu  skal  du  til  at 
bmge  "Exotic  Chemicals", 
samt  net-formularen.  Du  sæt¬ 
ter  næsen  mod  nord,  og  hen 
til  laboratoriet,  for  endelig  skal 
du  lave  net  (på  dåse), '  ’make 
web".  Du  kan  næsten  ikke 
vente  længere !  Du  styrter  ned 
af  skakten,  og  hopper  ind  på 
første  sal.  Mens  du  står  med 
vanlig  gmndighed  og  under¬ 
søger  spejlet,  ser  du  pludselig 


'  'gem"  til  din  snart  store  sam¬ 
ling.  Ud  igen,  men  hvad  med 
at  prøve  at  kravle  opad, 
'  'Climb  roof "?  Hvad  er  nu  det? 
En  ventilatorskakt!  Den  fører 
garanteret  hen  til  flere 
"gems',  tænker  du,  alt  imens 
du  med  lysets  hast  fjerner  net¬ 
tet,  der  sidder  foran  ventilator¬ 
skakten,  "removemesh".  Så 
kravler  du  ind  i  skakten,  "go 
duet",  og  ender  ved  selve 
ventilatoren.  Den  roterer  med 
over  500  mph  (ca.  800  km/ti¬ 
men),  så  igennem  "fan"  kan 
du  ikke  komme  -  endnu! 
Hmm,  hvordan  vil  du  klare 
det?  Men  dit  ansigt  afslører  in¬ 
gen  følelser,  kun  beslutsom¬ 
hed.  Grundigt  undersøger  du 
ventilatoren,  og  ser  en  knap 
midt  på  viften!  Du  haler 
spraydåsen  med  net  op,  og 
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Eventyrligt  opspind 


retter  strålen  mod  knappen. 
Viften  kører  rundt  med  en  ra¬ 
sende  kralt,  men  pludselig 
begynder  den  så  småt  at  tage 
tarten  at.  Det  er  dig,  der  har 
sprayet  nettet  mod  knappen! 
"spray  web  (at  button)".  Du 
må  gøre  det  endnu  nogle 
gange,  før  viften  går  helt  i  stå 
Sikkert  kan  du  kravle  igen¬ 
nem  viften  uden  at  blive  hak¬ 
ket  til  plukfisk,  og  bevæger 
dig  nu  i  et  netværk  af  gange . 
Et  usvigeligt  instinkt  fortæller 
dig  dog,  at  den  rette  vej  er 
nedad,  "down".  Du  går  ned 
og  ned  og  ned,  og  det  føles 
som  om  du  går  i  en  evighed . 
Pludselig  står  du  i  et  nyt  rum. 
Hårene  på  dine  arme  begyn¬ 
der  at  rejse  sig,  og  det  løber 
koldt  ned  ad  ryggen  -  her  står 
endnu  to  af  dine  værste  fjen¬ 
der,  Doktoren  og  Electro.  Du 
tager  en  dyyb  indånding,  og 
går  så  til  værks.  Dit  hjerte  står 
stille,  mens  du  griber  fat  i  dok¬ 
toren,  "get  doctor".  1  næste 
nu  ser  du  en  '  'bolt" .  I  vild  de¬ 
speration  slår  du  Electro,  "hit 
Electro",  og  begge  dine  fjen¬ 
der  er  lammede  af  den  strøm¬ 
førende  ' 'bolt ",  Du  har  stadig 


væk  ikke  hetl  forstået  hvad 
der  er  sket.  mens  du  under¬ 
søger  begge  for  "gems".  Du 
fortsætter  derefter  videre  mod 
vest.  Her  finder  du  pressen 
som  computeren  talte  om! 
Hvad  står  der  på  displayet? 
124  kg  Computeren  sagde, 
at  der  manglede  950  kg,  før 
den  ville  starte  pressen.  Nå, 
men  så  må  du  jo  snyde  lidt. 
for  så  meget  papir  er  her  slet 
ikke!  Du  går  op  igen,  og  hen 
til  skakten,  og  videren  op  til 
allerøverste  etage.  Her  tager 
du  bordet,  maleriet  og  alt 
hvad  du  kan  bære.  Ned  igen 
med  den  store  last  til  pressen. 
Her  lægger  du  al  din  bagage, 
og  læser  displayet  igen. 
Arrgh!  Der  mangler  stadig 
væk  noget  vægt.  Således  går 
du  rundt  i  hele  bygningen  og 
tager  alt  muligt  og  umuligt 
med  dig.  Der  kan  endda 
skimtes  et  lig  eller  to  blandt 
din  bagage,  og  alt  det  læg¬ 
ger  du  på  pressen.  Du  kigger 
igen  på  displayet,  og  nu  pas¬ 
ser  det  nogenlunde.  Du  forla¬ 
der  igen  disse  mm,  og  begi¬ 
er  dig  op  til  "computer  ro¬ 
om".  Her  hopper  du  let  og 


elegant  op  på  computeren 
endnu  en  gang.  Du  skriver 
igen,  "type  run".  Duspæner 
ned  til  pressen  igen,  og  HOV! 
her  er  jo  et  færdigt  nummer  af 
bladet  (SOFT  Special  måske?). 
Du  når  dog  ikke  at  læse  meg¬ 
et,  for  idet  du  åbner  det.  falder 
der  en  "gem"  ud.  Begærligt 
tager  du  den  til  dig,  og  spæ- 
ner  op  til  "Madame  Web". 
Slutningen  på  dette  mareridt 
vinker  forude,  men  først  var 
der  vist  noget  med  en  "bio- 
gem"  og  et  akvarium.  Hurtigt 
bevæger  du  dig  op  på  alle¬ 
røverste  etage  igen,  og  regu¬ 
lerer  på  termostatet.  så  det 
igen  bliver  varmere  i  bygnin¬ 
gen.  "Raisetemp".  Tilbage  til 
'  'Madame  Web ' ' .  hvor  akva¬ 
riet  venter.  Du  tager  akvariet 
og  hælder  det  smeltede  vand 
ud,  og  endnu  en  "gem"  er 
fundet.  Hvileløs  som  du  er, 
placerer  du  dig  lige  uden  for 
rummet  med  "biogem".  Du 
drejer  hovedet  90  grader  til 
venstre,  "lookwest".Meden 
hånd  så  rolig  som  Eiffeltåmet 
sigter  du  emd  spraydåsen  på 
"Biogem 'en".  Du  tager  et 
dybt  og  inderligt  suk,  og  tryk¬ 


ker  så  af , '  'spray  web  (at  bio¬ 
gem)'  ' .  Den  sidste  '  'gem  "  er  i 
din  besiddelse!  For  sidste 
gang  skal  du  lægge  en 
"gem"  hos  "Madame  Web". 
Du  beder  om  "score",  og 
pludselig  kommer  "Chief 
Examiner"  (fra  The  Hulk),  og 
giver  dig  et  kodeord.  Det  skal 
du  huske,  hvorfor  nu  det. 
tænker  du,  skal  du  igennem 
endnu  et  eventyr?!! 

I  hvert  fald  har  du  nu  løst 
eventyret  Spiderman. 

På  eventyrligt 
gensyn 

Jeg  håber,  du  har  hygget  dig 
under  denne  dramatiske 
gennemgang  af  edderkop- 
pemandens  rejse.  Forhåbent¬ 
lig  har  du  samtidig  fundet 
svarene  på  alle  dine  spørgs¬ 
mål.  Jeg  hyggede  mig  bravt 
undervejs,  og  vil  samtidig  be¬ 
nytte  lejligheden  til  at  ønske 
alle  en  glædelig  JUL  og  et 
godt  NYTÅR. 

Vi  mødes  uden  tvivl  igen  i 
SOFT  Special,  hvor  jeg  vil 
komme  med  nye  eventyrlige 
udfordringer.  □ 

Christian  Mortensen 
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Køb  det  nye  “hotte” 
nummer  af  “Alt  om  Data 
i  kiosken.  Kun  kr.  23,85. 


Du  kan  også  få  bragt  bladet 
gratis  til  din  bopæl. 

12  numre  koster  kr.  262,35. 

Ring  efter  et  girokort  på  tlf.  01-11  28  33 
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Med  denne  lille  interruptruti- 
ne,  kan  du  stille  TIS  til  en  hvil¬ 
ken  som  helst  tid  på  døgnet. 
Det.  eneste  du  gør  er  at  skrive 
tidspunktet  lige  nu.  Tiden  vil 
nu  stå  øverst  til  højre  på  skær¬ 
men  konstant.  Det  sjove  ved 
denne  interruptrutine  er  dog. 
at  den  kan  køre  sammen 
med  forskellige  programmer. 

Ulrik  Smed 


10  FOR  N*49152  TO  49319: READ  fl 
POKE  N ,  A :  NEXT  N 
2ø  INPUT "HVAD  ER  KLOKKEN  ";KL$ 

3ø  POKE  53246  ,  VAL  <  M I DS  < KLS ,5,2)) 

4ø  POKE  53245,VAL<MID$<KL$,3,2)) 

50  POKE  53244, VAL <MI DS <KL$; 1,2)) 

100  SVS  49307 
110  END 

200  DATA  72, 138, *72/ 152,72, 174, 255, 
207, 232,  142, 255, 207, 224, 60, 208, 88 
21ø  DATA  169,0, 141,255,207, 162,3,202, 
189,252,207, 24,105,1, 157,252 
22ø  DATA  207,221,152,192,144,9,169,0, 
157,252,207,224,0,208,232, 162 
230  DATA  252,142,115,192,162,34,142, 
131,192,232, 142,149, 192,32,112,192 
24ø  DATA  238,115,192,162,36,142,131, 
192,232, 142, 149, 192,32,112, 192,238 
250  DATA  115,192,162,38,142,131,192, 
232, 142, 149, 192,32,112, 192, 169, 14 
260  DATA  162,6,157,33,216,202,208, 
250, 104, 168, 104, *70, 104,76,49,234 
270  DATA  162,0,173,254,207,201,10, 
144,5,233, 10,232, 176,247,72, 138 
280  DATA  105,48,141,38,4,104,162,0, 
201,1,144,5,233,1,232,176 
290  DATA  247, 138, 105, 4@, 141 , 39, 4, 96, 
24,60,60, 120, 169, 0,il41  /  20 
3øø  DATA  3,169,192,141/21,3,88,96 


MOMS 


Har  du  egen  virksomhed,  el¬ 
ler  skal  du  blot  løre  regnskab 
med  moms.  Så  er  der  her  et 
program  der  kan  hjælpe  dig 
i  dit  arbejde. 

Programmet  kan  holde  rede 
på  op  itl  500  torskellige 
indtægts-/udgiltsbilag.  Disse 
repræsenteres  ved  en  dato, 
og  et  beløb .  Deretter  beregnes 
momsen  automatisk  at  pro¬ 
grammet.  Bemærk  at  pro¬ 
grammet  udregner  moms 
som  18.03  af  det  indtastede 
beløb.  Det  vil  sige,  at  hvis  du 
indtaster  1 00  kr .  vil  moms  væ¬ 
re  18.03  kr.  (Det  kaldes  "Heraf 
udgør  moms"). 

Programmet  har  følgende 
features: 

Generelt  gælder:  Program¬ 
met  kan  ikke  standses  ved 


RUNSTOP/RESTORE.  af  sikker¬ 
hedsmæssige  grunde  Og  at 
linie  0  kan  indeholde  dit  eget 
navn  i  stedet  for  Ernst  Tobish . 
Under  indtastning  er  der  mu¬ 
lighed  for  at  rette.  Det  gøres 
ved  tryk  på  (*)  ved  spørgsmå¬ 
let:  Ønsker  De  at  indtaste 
igen? 

Hvis  du  trykker  ( * )  vil  du  blive 
bedt  om  nummeret  på  bila¬ 
get. 

En  anden  mulighed  for  at  ret¬ 
te  fejl  er.  hvis  du  indtaster  fejl 
under  datoen.  Du  vil  nu  have 
mulighed  for  at  rette  sidst  ind¬ 
tastede  bilag. 

Under  udskrift  er  der  forskelli¬ 
ge  spørgsmål  der  blot  skal  be¬ 
svares. 

Jacob  Heibeig 


1)  Indtastning  af  beløb 
(max.  500). 

2)  Udskrivning  på  Printer 
(her  en  ASCII-prlnter).  BE¬ 
MÆRK!  Centronics  eller 
RS232  er  IKKE  indbygget 
(Det  kan  eventuelt  softloa- 
des  først). 

3)  View  skærm.  Her  kan 
du  gennemlæse  alle  ind¬ 
tastede  bilag  (kun  20  af 
gangen  på  skærmen). 
Ved  tastetryk  kommer 
endnu  20  etc. 

4)  Load,  her  har  du  mulig¬ 
hed  for  at  hente  et  gam¬ 
melt  regnskab.  Og  det  er 
enten  fra  bånd  eller  disk. 
BEMÆRK!  Alle  nyindta- 
stede  data  vil  så  blive  slet¬ 
tet. 

5)  Save,  her  kan  du  gem¬ 
me  de  ny-indtastede  da¬ 
ta.  Du  bestemmer  selv, 
om  det  skal  være  på  bånd 
eller  diskette. 

6)  OPstart.  Her  kan  du 
starte  programmet  op  på- 
ny,  dvs.  du  kan  slette  la¬ 
geret  og  derved  begynde 
forfra.  BEMÆRK!  INDTA¬ 
STEDE  DATA  SLETTES! 

7)  Slut.  Her  afsluttes  pro¬ 
grammet,  idet  program¬ 
met  sletter  sig  selv. 


O  BRS*"-RNST  IOBISH* 

10  REM  ***************************** 
»S 

12  REM  «*»  MOMSREGNSKAB  PR.  KVARTAL 
*»» 

14  REM  ***  - 

*** 

16  REM  **«  MADE  BY I  JACOB  HE1BERG 

«»* 

18  REM  ***  VER* 1.09  EM)  1985  10  27 

20  REM  *** 

*** 

22  REM  *•***»*****«******•*«***»»**» 
*** 

24  1 

26  REM  •*•*«*«**•**** 

28  REM  *  INITIERING  * 

30  REM  «•*****•*«*••* 

32  AN*500 1 NR-0 1 RUT-7 1  MOMS- 18 . 03  :  KET-0 
34  OIM  C«  AN)  .BT<  AN>  ,M3<  AN>  ,R«  RUT) 

36  SCR-6IBRD-8IPEN-1  10«  0>*"00/M-l" 
IZXS-STR«  RUT>  IZXS-MIO«  ZXS,8> 

38  RESTORE 

42  DATA "-,M)TAST" .  ■  ÆSKRI V", 

"XIEW  SKAERM", "LOAD", "SAVE", 
TPSTART",  ••LUT" 

44  FOR  F-l  TO  RUTIREAD  R«  F> INEXT  F 
48  PR  I  NT"  <  UMÆCK  ,  TEXT ,  LOCK  >  ■ 

IPOKE  808,251 

52  CLOSE  2 1  OPEN  2,0 1  BA«-"  I  ILLAG 
-ATO  IELØB 

\OMS  " 

56  IF  LEN«  BR8>  >14  THEN  PRINT"«  CLR)  IR 
UGERNAVN  FOR  LANGTI" 

I  PR  I  NT  "  <  CRSR  K£D2)RUN«  HOI*E  >  " 

(LIST  0-1 

58  IF  LEN«  BR«><  14  THEN  BRS-BRS*"  * 

60  IF  LEN«  BR6>«  14  THEN  BR»-  ■  "«BRS 
I GOTO  60 

113  FOR  Z-l  TO  3 1 Z - 1 t  CLOSE  1 l CLOSE  15 

114  PR INT"<  CLR ) " t  GOSUB  2000 
IREM  HEAOER *C0L0UR 

115  PR INT"<  CRSR  NE017, 

SPACE > ÆARBE  JOET  AF 

I  <ACOB  IEIBERG  <C>  1985«  HOÆ  , 
CRSR  NE07>  * 

116  FOR  F-l  TO  RUTI  PR  I  NT  ,FI  "  I  *>R«F) 
INEXT  F 

118  PRINT," - " 

120  PRINT-XWLGI "1 
122  POKE  204,0 

124  POKE  198.0IUA1T  198.1IGET  AS 
126  IF  A*<  "  i  " OR  A«>ZX«THEN  124 
128  POKE  207 ,01 POKE  204,1 
128  GOSUB  2500 
136  R-VAL«  AS> 

138  IF  R-6  THEN  RUN 

140  ON  R  GOSUB  200,300,700,400,500,0, 
600 

142  NEXT  Z 

200  KR-KR+I  l GOSUB  2000 
UF  RE-1  THEN  207 
202  PR INT"< HOME, CRSR  NE07, 

SPACE )/R.  -ATO  IELOB 

\OMS  " 

204  PR 1NT1 PRINT  NRI TAB« 10>» 

D*<  NR  -  1  >  "«  CRSR  VENSTRES)  "I 
I INPUT42 ,A« 

205  IF  LEN«  A*)<  >5  AND  ASO"*-"AM)  A»< 

> "FEJL "THEN  PR INTI PR INT"-ORKERT  O 
ATO" l GOTO  202 

206  IF  A*< > "FEJL" THEN  208 

207  NR-NR-1  IPRINTIPRINT"«  CRSR  NED4)N 

R .  "NR  "  0AT0I"D«M?>"  "BT<  NR  >  " 

■MS«  N?)  I  GOTO  202 

208  PRINT"«  CRSR  NED)") 

TAB«  18)  " - ■  IPRINT"«  CRSR  0P2 

) ■ I  TAB«  18)) I INPUTH2.B« 

212  B-VAL(BS) 

214  IF  B-0  THEN  PRINTIPRINT"-EJL  I  B 
EL06«  CRSR  0P2 ) " *  GOTO  208 
218  BT«  NR) -Bl MS«  NR) -MOMS*«  B/100) 

ID«  KR) -AS 

220  BT«  NR  )-  INT«  BT«  NR  )  *  10O+  . 5>/100 
222  MS«  NR)-INT<  MS«  NR>*100*.5>/100 
224  PR INT"<  CRSR  NED)") 

TAB«  28)" - •  IPRINT"«  CRSR  0P2 

)  ") TAB«  29>)MS<  NR) 

226  I 

227  IF  RE-1  THEN  RE-0 1  M?-Z  I A«-  ■  • 

IPOKE  188,0 

228  PRINT"«  CRSR  NED)  INDTAST  IGEN?") 
230  POKE  198,01 POKE  204,0IWAIT  188,1 

IGET  A« 

232  POKE  207, O I POKE  204,1 

UF  A*»-J"OR  AS-CHR«  13)THEN  200 


234  IF  AS* "» "THEN  PRINT"  IV1LKET  BILL 
AG! ") l INPUTH2 ,NSl Z -M?  I RE-1 
I  M?“VAL«  NS)  l  GOTO  200 
236  RETURN 

300  GOSUB  2000 1  PR  INT"  ÆSKRIVE  RUTIhC" 

IPRINT" - "IPRINT 

IPRINT 

301  IF  l«-0  THEN  RETURN 

302  PRINTTVERSKRIFTI  •)  UNPUT*2,0VS 
304  PR  I  NT  I  PR  I  NT  "SI  OE  ANGIVELSE  «  J/N) 

I  J<  CRSR  VENSTRE ) • ) l INPUTK2 ,PGS 
306  PRINTIPRINT" ÆSKRIFTS  DATO!  •) 

I  IN»UT*2,DTS 

308  PR  I  NT  I  PR  I  NT  ■  I  RYK  EN  TAST  N4AR  PR 
INTEREN  ER  KLAR  I  ■ 

310  POKE  198,0IWAIT  188, I IGET  AS 

318  CLOSE  4 l OPEN  4 ,4iPG-72 IMX-63 

320  PG -O I CLOSE  4 1  OPEN  4,4 

322  MX-63 

326  GOSUB  2100 

328  FOR  F-l  TO  M? 

330  I  MT -MT  +MS«  F) l BE"BE*BT«  F> 

332  I  MSS-STR«  MS«  F  >  > 

UF  INT«  MS«  F  )  )  -MS«  F  >THEN  MSS-BTS* 
".00" 

333  IF  ASC«  RIGHT«  MS«, 

2 ) ) -46  THEN  MSS-MSS*"0" 

334  l  BTS-STRS«  BT«  F  >  ) 

UF  INT«  BT«  F  )  )-BT(  F  )THEN  8TS-BTS* 
".00" 

335  IF  ASC«  RIGHT«  BTS, 

2) >-46  THEN  BTS-BTS*"0" 

336  l  NRS-STR«  F  > 

338  I  IF  LEMKRSX4  THEN  M?S-  •  "*M?S 
l GOTO  338 

340  I  PRINTS4,"  "M?S"  "0«F>) 

TAB«  15-LENC  BTS)  >BTS) 

TAB«  20  -LEN«  MSS  >  )  )  MSS 
342  I  LIN-LINM 

344  I  IF  LIN-M«  THEN  PRINT«4IPRINT«4 
I GOSUB  2100 

346  K«XT  F 

347  CXS- " • I FOR  C-l  TO  60ICXS-CXS*"-" 
IKEXT  C I  PR  I  NT*4  ,  CXS 

348  I  MTS-STR«  MT)  I  IF  INT«  MT/1  )  -MT/ 

1  THEN  MTS-MTS*  "  .  00  " 

348  IF  ASC«  RIGHT«  MTS, 

2) >-46  THEN  MTS-MTS*"0" 

350  I  BES-STRS«  BE)  I  IF  INT«  BE/1  > -BE/ 

1  THEN  BES-BES* " . 00 " 

351  IF  ASC«  RIGHT«  BES, 

2 > ) -46  THEN  BES-BES*"0" 

352  MJS-"  ■  l  D«  NR  )  •"  I  ALT" 

354  I  PRINTM4,"  "KRS"  -0«hR>> 

TAB«  15-LENf  BES)  )BES) 

TAB«  20-LENC  MTS)  >)MTS 
358  FOR  F-l  TO  LENt BES) ISS-SS»"-" 
IhCXT  F 

360  FOR  F-l  TO  LEN« MTS) IXS-XS+ • • • 
lf«XT  F 

361  O«  KR >-" 

362  I  PRINTS4,"  "KRS"  "0«KR>> 

TA8«  IS-LEN«  SS)  )SS)  TAB«  20 -LEN«  XS)  )) 

XS 

364  FOR  F-LINU  TO  l*K«5IPRINT»4 
INEXT  F 
366  RETURN 

400  GOSUB  2000 ■ GOSUB  2200 
UF  E-l  THEN  E-OIRETURN 
404  OPEN  1 , DE V , S , NS I  1 F  DEV-8  THEN  IN 
PUT*15,0,US,E,RI1F  Q-62  THEN  2300 
406  INPUT*  1,1« 

408  FOR  F-l  TO  NR 

410  l  INPUT*  1  , 0«  F  )  ,BT<  F >  ,MS<  F  > 

414  hEXT  F 
416  I 

422  CLOSE  1 
424  RETURN 

500  GOSUB  2000  I GOSUB  2200 
UF  E-l  THEN  E-OIRETURN 
504  OPEN  1,0EV,S,NS*",S,W" 

UF  DEV-8  THEN  IMHJTN  15 ,0  ,US,E  ,R 
I  IF  0-63  THEN  2300 
506  PR INT* 1, NR 
508  FOR  F-l  TO  NF 

510  ■  PRINT*1,0«F)CHR«  13)BT«F)CHR 
«  13)MS«  F> 

512  NCXT  F 
514  I 

518  CLOSE  1 
520  RETURN 

600  PRINT'tCLR), - 

- .  ") 

602  PRINT"  |  AFSLUTNING  PAA  \OMSB 

EREGNING  I") 

604  PRINT"' - 


N)l  J«  CRSR  VENSTRE) ") IPOKE  204,0 
608  GET  ASl  IF  ASO"J"AND  ASO’N'THEN 
608 

610  IF  AS- "N"THEN  RETURN 
612  PR  INTIPR  INT"«  CRSR  NED3  , 

SPACE  16 > -ARVEL" 

614  POKE  808,237 
616  NEW 

700  PR  INT"<  CLR  )  IERMEO  VISES  INDTASTE 
OE  DATA l " 

702  PRINT" - 

■ 

704  FOR  F-l  TO  W* 

706  *  PRINT  F-l  "TABC  10  )0*C  F  )  ,BTC  F  )  , 
MSC  F  ) 

700  i  IF  I NTC F/20) -F/20  THEN  POKE  19 
0,OtU*IT  198 , 1  i GET  A*« PR INT"< CLR ) • 
710  NEXT  F 

712  POKE  198, 0 *  PR INT*  |  RYK  EN  TÅSTI" 
«UAIT  198 , 1  *  GET  Pi* 

714  RETURN 

2000  PRINT"< CLR, CYAN)  , - 


2001  PRINT- | 
0 

2002  PRINT" | 


NOMSREGNSKA 


2003  POKE  646, PEN« POKE  53280, BRO 
*  POKE  53281, SCR 

2004  NR*-STR*CNR)iNR*-MID*CNR*,2) 

2005  IF  L£N(  NR*)<  3  THEN  NR*- "O "♦NR* 
»GOTO  2005 

2006  PRINT"  | ANTAL« *1  NR*/ "  I  *;BR*/ 

-  |  — TSPUTER  |-f 

2007  PRINT-  • - • - 

- 1 - 1 -I 

2008  PRINTIPRINT 
2010  RETURN 

2100  PR  I NTR4 • PR INTH4 , CHR*C  17)"  ÆSKRI 
FT  O.  -OT* 

2102  TB-38-C  LEN(  0V*)/2) 

i  PR INTH4 ,TAB<  TB )CHR*<  14)CHR*<  17)0 
V*JCHR*<  15) 

2104  IF  PG»- ■ J "THEN  PG-PG+1 
IPRINT#4,TAB(  37)---PG"  -• 

2106  PR INTH4 1  PR INTW4 ,CHR*<  17)BA* 
iPRINT#4iLIN-6 

2107  IF  PG»- -N-THEN  LIN-5 

2108  RETURN 
2200  G06UB  2000 

2202  IF  R-4  THEN  PR INT* I EMAERK , 

ALLE  DATA  SLETTES  I  * 

2204  IF  R-4  THEN  PRINT"ONSKES  GAMMEL 
FIL  HENTET  < J/N) «  J< CRSR  VENSTRE 
)  -) 

2206  IF  R-5  THEN  PRINT"ONSKES  DATA  G 
EMT  <  J/N) l  J<  CRSR  VENSTRE) "I 
2208  POKE  204,0«  GET  A* 

UF  A*<  >  "N"AND  A*<  >  "  J  "AND  A*<  >CHR 
*<  13 )THEN  2200 

2210  IF  A*- "N-THEN  PRINT  A*;«E-1 
i RETURN 

2212  PR INT«PR INTlPR I NT -/AVN  PAC CRSR 
VENSTRE, CRSR  OP). (CRSR  NED, 

SPACE )F IL*  mf 
2214  INPUTH2 ,N* 

2216  PRINTiPRINTiPRINT- |A< CRSR  VENST 
RE  ,CRSR  OP). C CRSR  NEO )ND  ELLER  01 
SK  <  B/D ) «  DC CRSR  VENSTRE) "I 
2218  POKE  204,0 « GET  A* 

UF  A*<  >*B -  AND  A*<  > "D "AND  A*<  >CHR 
*C 13)THEN  2218 
2220  DEV-8 i PR INT  A*iS-8 

2222  IF  A*--B*THEN  DEV-HS-0 

2223  IF  R-5  AND  DEV-1  THEN  S-l 

2224  PRINT«PRINT«PRINT-_IGTIGT  INDTA 
STET  C  J/N)  l  JC  CRSR  VENSTRE) "I 

2226  POKE  204, O « GET  A* 

UF  A*C  >  ■  J  "  Af*0  A*C  >  "N"  AND  A*<  >CHR 
*C  13)THEN  2226 

2228  PRINT  A*«IF  DEV-8  THEN  CLOSE  15 
i OPEN  15,8,15,-1- 
2230  IF  A*- -N-THEN  2200 
2232  POKE  207, 0 1 POKE  204,1 
2234  RETURN 

2300  PRINT-C CLR,SPACE6,GUL, 

RVS  ON)— £ JLMEODELELSE  OISKCRVS  OF 
F>  • 

2302  PRINT-  - ■ 

2304  PR INT« PR INT-FEJL ", -BETYDNING - 

IPRINT- - "  ,  " - -IPRINT 

2306  PRINT  Q,W* 

2308  FOR  F-l  TO  l 200 INEXT  F 
2310  RETURN 

2500  BE -O l MT-0 «  CX*- -  * « X*- -  - «  S*- ■ ■ i Q-0 
2502  RETURN 


606  PRINT-C  CRSR  hCD)” 


SIKKER  CJ/ 


ØF*  25 


Torpedo 

submarir 


■  Din  opgave  er  at  torpedere 


de  fjendtlige  skibe  fra  din 
neddykkede  ubåd  med  dit 
periskop  og  20  torpedoer.  Du 
får  50  points  for  GOBLERE.  100 
points  for  HANGARSKIBE  og 
250  points  for  KRYDSERE,  og 
1000  points  for  DESTROYERE. 
Du  styrer  ubåden  med  1  for 
venstre,  2  for  højre  og  0  for  at 
affyre  en  torpedo. □ 

Allan  Sørensen 


RUN  OBO 

Lsaø  BORDER  1:  PAPER  1:  INK  6:  C 

30  PRINT  AT  f  ,  J2J  INK  4;"T";  J 
NK  5;  "O";  INK  o;  "R’’;  ink  7 

1N5.*f.p!^  88  lr?NK 

4  1  PAPER  3; 

BO  PRINT  AT  3,3; "Din  O PØIV«  «r 
At  torpidin/’  dø  fjindt  IJ9t 

skib«  fr«  din  n«dd'<u«it  u- 

bssd  ■ • d  dit  pariskop  og  a 

o  torp«dor«r." 

BO  PRINT  AT  6,4;" 008LER  *  .»  .# 
BO  POINTS" 

70  PRINT  AT  10/ 4; "MANDAR  * 

I  100  POINTS¬ 
BO  PRINT  AT  la,  4;  "KRYDSER  _Jb- 
aso  POINTS"  _ 

00  PRINT  AT  14/4; "DESTRYEA  -A. 

110  PRINT  AT  lB^fi;  ", _ 

13«  WUOT  AT  ifl.iB;  "J»;AT  17/14 


^7BO  IF  typ«  -3  TMEN  LET  »C -»C  410 
76©  PRINT  AT  O , 10-  (s  C >00) - (S  C >9 
22 >  -<»e>09ø9.»;  3;  JNH  p; 

PAPER  B; S  C 

700  S T*?0-?.SMCN  °°  T°  *** 

III  »tSJ7^  oo  to  bso 

BIO  PRINT  AT  4/tPrl;**  " 

030  LET  tor -O 

0°360Ir  l0f-®  *ND  TMEN  °°  T 

840  RETURN 

880  CLS  :  PRINT  AT  18.3;  INK  O; 
^PLASH  i;"  STOP  CASSTTE  SPILLERE 

860  PRINT  AT  3,10;  INK  1; "T";  X 
NK  O;  "O";  INK  av-R1*;  INK  4 ;  "P" ; 
INK  1;  B*  ;  INK  INK  3;  "O'* 

870  PRINT  AT  4,11;  FLASH  1;  INK 
8;  PAPER  3;  *  ■■HHa/avp 
„060  PR!NT  AT  7,6;  "AF.  ALLANO  SO 
RENSEN 

000  PRINT  AT  10,8,"©  1085  SIO« 
SOFTWARE" 

_2®®  bl-lOOØ.  FOR  r-USR 

oao  DATA  0,1,0,6.10.088,107.63 
oae  DATA  O, 0,0,0,0,288, »,254 
030  DATA  0,0,0,0.0,260,1.107 
s940  DATA  0,0, 64, $6, 46, *8*, 084, 2 

3gBO  DATA  06,60/ 107/« ,49/74/146/ 

960  DATA  04,«,«,«, 60,031, 60,04 
970  DATA  04.« ,«,«,« , « , 60 , 04 
980  DATA  0.6, £.6, l8/fléS/6l.7 
990  DATA  46,« .040.« .060.086,« ,« 
lØOØ  DATA  O/0, 6,0,6/640.688,« 

1010  DATA  0.0.0, 0,0, 18  ,  055  ,  l> 
lØOØ  DATA  10,0 . 16,« .63 ,256 ,  •  .  a 
1030  DATA  0,6,iOB/l6a,640/68é/a4 
8 . 004 

1040  DATA  3. 7,3, 3, OBS , 63 , • , 31 
1050  DATA  160,064, 190,« ,656,« ,0 , 

» 

1060  DATA  16, 46, 107,085,«, 127, 48~ 
itt.  DATA  0,0,0/0/088/040,004/10 

1080  DATA  0,0,0,0,055,31,7,3 
1090  DATA  8, l6, 654,056, »,064,1a, 

IIØO  DATA  3.7,3,3,255,«,« ,« 

1110  DATA  190, 004, 192,« ,265,052, 

«  ,04© 


IF  INKEY« 


835  " 

!  40  NEXT  I:  PRINT  AT  3,0;  PAPER 
;  ØRIOMT  i;  "M 
550  OO  TO  370 

B60  LET  ORME  OUE 

870  FOR  n-1  TO  O 

860  FOR  1 -1  TO  30:  PRINT  AT  18 . 
ti  INK  34 (RND#4> ; «f ( f > ;  INK  8 i  "M 
NEXT  f :  PRINT  AT  12,31;”  " 

890  LET  »••"M 

600  NEXT  n 

610  IF  s  c  >hi  TMEN  LET  hi -»C:  PR 
INT  AT  14,9;  FLASH  1/"  NY  MIOMSC 
ORE  " 

600  PAUSE  200:  PAUSE  100:  OO  TO 
OO 

630  IF  torf-4  TMEN  CO  TO  710 
640  IF  NOT  POINT  ((tOrlf6«4) ,10 
9)  THEN  OO  TO  630 
650  FOR  n-7  TO  1  STEP  -.5:  BEEP 
. øl , 30- m #5.1  PPSNT  AT  6.  tori: 
INK  n;"#":  NEXT  n:  PRINT  AT  8.1© 

ri;"  6 

660  LET  »C •« C  450 

670  IF  » » *0  TMEN  OO  TO  660 

660  LET  ter-Ø 

690  PRINT  AT  O, IO- (S C >99) - <» C >9 
99)  -  C« C >9999)  ;  BRIOHT  11  INK  O; 
PAPER  8; »C 
700  OO  TO  630 

710  IF  NOT  POINT  t  I  tor  1 #6  #4;  ,14 
6)  TMEN  OO  TO  610 
700  FOR  n-7  TO  O  STEP  -.8:  BEEP 
.01 ,3ø-rn#5i pajht  at  3,/;  MJ 
G MT  i;  INK  n;  PAPER  5;tf(ret,tvp 
•) :  NEXT  n:  PRINT  AT  3,7;  PAPER 
5;  BRIOHT  1;  " 

730  IF  typ« -1  THEN  LET  4C-SC41B 
°740  IF  typ« -O  THEN  LET  »C-SC40B 


10  60RDER  O:  CLS 

te  FOR  f-0  TO  3.-  PP3NT  PAPER  8 
IRIOKT  li*  NEXT  f 

O:  DRA1J  INK  3;0,4  4RND«S:  NEXT 


i 90  PRINT  AT  8,0;  "  ©  #  *  * 

00  PRINT  AT  19,18;  INK  4;"±" 

aio  paint  at  e.é;  ink  o;  Paper 

8;  BRIOHT  1;"  StOAE  OOOØØ 
MIOM  OOOOØ" 

aae  paint  at  ©,07- (hi >9999) ;  pa 

PER  5;  INK  o;  BRIOHT  l;hl 
030  LET  RERDY  I 

040  FOR  n-1  TO  O 

080  FOR  r-1  TO  30:  PRINT  AT  lO. 
ti  INK  34  (AND«4)  ;  »t  (  f )  ;  INK  6  i~.il 
":  NEXT  f:  PRINT  AT  10,31;  "  " 

060  BEEP  .01,00:  BEEP  .01,01:  B 
EEP  .01,00:  PAU6E  60 
070  LET  • S - “ ^ 

260  NEXT  O 

090  DIM  tf(2,3,BJ 

300  LET  tf  (1,  li  -" 

310  LET  tiia.l) >“«. 

300  LET  tf  (1,0)-"  ._2b-" 

330  LET  tf  (2,0) 

340  LET  tf  1 1,31 

380  LET  r  » 

360  LET  4C-0:  LET  pør «14;  LET  t 
or -O:  LET  ««-oe 
370  LET  r« -1 

360  LET  rt  t -INT  (AND #21 :  IF  P# t 
-O  TMEN  LET  r« --1 
390  IF  r«— 1  TMEN  LET  r«t-0 
400  LET  typ«-l4lNT  (AND #3) 

410  FOR  f-0407«(r«t-0)  TO  07-07 
«(r«t-a)  STEP  rø/'typ« 

400  PAINT  AT  3,r;  PAPER  6;  INK 
7;  BRIOHT  l; tø (r« t ,typ«) 

430  LET  p«r -P«r  4  ( JNKEYØ-"2"J  -  ti 
NKEYØ-"1") 

440  IF  p«r  <1  TMEN  LET  p«r-l 
480  IF  P«r >08  TMEN  LET  P«r-2S. 
460  PRINT  AT  19 ,P»P;  INK  4;-  4- 


V  ■ 


/ — 

*-  -• 

i 

:  i 

f 

1 

i  : 

i 

: 

! 

Doktormand 


■  En  af  dine  patienter  er  ved 
at  dø  af  en  livsfarlig  infektion. 
Hvis  han  kommer  op  pd  42 
grader  i  feber,  dør  han.  Du 
md  redde  ham,  og  den  ene¬ 
ste  metode  er  at  udrydde 
hver  eneste  bakterie.  Til  dette 
formdi  har  du  en  minilaser, 
der  kan  styres  med  tasterne 


'1'  og  '2'  og  affyres  med  '0'. 
Undervejs  skal  du  opsamle 
de  gule,  feberstillende  piller 
samt  de  blinkende  ekstra  liv. 
Sd  snart  du  har  sidet  infektio¬ 
nen  ned,  skal  du  trykke  pd 
ENTER.  Gem  programmet  pd 
bdnd  med  GOTO  600.  □ 

Niels  Larsen 


•i  li  PRINT  #0  i "HtGHSCORE  "ihis 


1  REM  ***  3  Niels  Uarsen  *** 

10  LET  d i r=0:  LET  o=0:  LET  1=3:  LET  xl=0:  LET  yl=0 
20  LET  antal =15i  BRIGHT  li  INK  0:  POPER  7 
30  CL  S 

40  LET  0*=“"i  PRINT  0T  21.01 "LIV 
50  FOR  t=l  TO  antal 
60  DO  SUB  530 
70  NEXT  t 
80  LET  b=0 

90  FOR  U=38  TO  42  STEP  .01 
100  LET  ul=INT  C(u*100)+.  5)/100 
110  PRINT  OT  21. 16i“teMO  "iUl!”  " 

120  LET  a=C0DE  INKEY* 

130  BEEP  .005.-20:  BEEP  .005.0:  BEEP  .01.10:  BEEP  .002.40:  BEEP  .008.-30 

140  IF  a=13  THEN  GO  TO  450 

150  IF  a=48  THEN  GO  SUB  340 

160  IF  RND  <■  005  THEN  GO  SUB  570 

170  IF  RND <.  01  THEN  GO  SUB  560 

175  IF  b  THEN  DO  SUB  530:  LET  b=0 

180  IF  RND <■  02  THEN  IF  CODE  INKEYCO  13  THEN  BEEP  .1.30:  LET  b=l 
190  LET  d i r=d i r  +  C  a=49 ) - ( a=50 ) 

200  IF  d i r=8  THEN  LET  dir=0 
210  IF  d i r=-l  THEN  LET  dir=7 
220  LET  ys=yl:  LET  xs=xl 

230  LET  xl=xl+(di r=l )+(d i r=0) +Cd i r=7)-(dir=3)-(dir=4)-(dir=5) 

240  LET  yl=yl— Cdi r=l)-<di r=2)-Cdi r=3)+(di r>=5) 

250  LET  xl=0BS  xl:  IF  xl>31  THEN  LET  xl=31 
260  LET  y 1 =0BS  yl:  IF  yl>20  THEN  LET  yl=20 

270  LET  a=0TTR  (yl.xl)i  IF  a> 120  OND  o<125  THEN  LET  1=1-1!  BEEP  .7.-10:  BEEP  1 
.4.-25:  PRINT  OT  21.7!  15“  "i  IF  I <0  THEN  GO  TO  490 
280  IF  o=126  THEN  LET  u=u-.  5:  BEEP  .2.20:  BEEP  .1.35 

290  IF  0=253  THEN  LET  1  =  1+1:  PRINT  OT  21,75  1!  BEEP  .1,0:  BEEP  .1,20:  BEEP  .1.4 

0 

300  PRINT  OT  yl,xls"0" 

310  PRINT  OT  ys.xsS"  “ 

320  NEXT  U:  LET  a*=" POTIENTEN  DODE" :  GO  TO  490 
330  REM  SKUD 

340  LET  xx=8*xl+3i  LET  yy=175-8*yl-4:  IF  dir=7  OR  dir=3  THEN  LET  yy=yy+l 
350  PLOT  xx.  yy 

360  LET  xr=< (255-xx)  OND  Cdir=l  OR  d i r=0  OR  dir=7))-(xx  OND  (d i r=3  OR  dlr=4  OR 
d  i  r=5) ) 

370  LET  yr=( C 175-yy)  OND  <dir=3  OR  dir=2  OR  d i r=l ) )-C <yy-8)  OND  Cd  ir) =5)) 

380  IF  xr*yr=0  THEN  GO  TO  410 

390  IF  OBS  yr>  OBS  xr  THEN  LET  yr=CSGN  yr)*08S  xr 
400  LET  xr=CSGN  xr)*OBS  yr 
410  BEEP  .02,-20:  BEEP  .04.-10 
420  DROW  xr.  yr 

4300  INK  7:  PLOT  xx.yy:  DROW  xr.yr:  INK  O 
440  RETURN 

450  FOR  0=22528  TO  23200:  LET  a=PEEK  o:  IF  a<125  THEN  IF  b) 120  THEN  GO  TO  490 
460  NEXT  o 

470  LET  ul=INT  (<42-u)*250) 

480  CLS  :  PRINT  “DU  FIK  “!ul!“  POINT":  GO  TO  500 

490  LET  ul=0:  CLS  i  PRINT  O*:  PRINT  "DU  SLOG  IKKE  INFEKTIONEN  NED  -  INGEN  SCOR 
E" 

500  IF  ul)=his  THEN  LET  his=ul 

510  BEEP  2.-20:  PRINT  "NYT  SPIL  ( J/N)  “ :  PAUSE  0:  IF  INKEY *="n“  OR  INKEY*="N“  T 
HEN  STOP 
520  GO  TO  10 

530  INK  INT  CRND+4)  +  1 :  LET  y  =  INT  CRND+21):  LET  x=INT  CRND+32) i  IF  SCREEN*  (y.  x) 
=  "B"  THEN  GO  TO  60 
540  PRINT  OT  y.  xl“B":  INK  O 
550  RETURN 

560  INK  6i  PRINT  OT  RND+19.  RND+305 “C“ :  INK  Oi  RETURN 

570  INK  5:  PRINT  FLOSH  150T  RND+19, RND+305 "D" :  INK  O:  RETURN 

580  DOTO  153.  102,  90.  189.  189,  90,  102, 153,  24.  27,  148,  252,  24.  62,  98,  195,  240,  252,  254,  2 
54,  127,  127,  63,  15,  56,  184,  144,  255,  25,  60,  36,  102 
590  RESTORE  :  LET  his=0:  FOR  u=USR  "a"  TO  USR  “a"+3l:  REOD  xi  POKE  u, x:  NEXT  u: 
GO  TO  10 

600  CLEOR  :  SOVE  "DOCTORMON"  LINE  580 


3D  ball  maze 


■  Du  er  efter-  utallige  anstren¬ 
gelser  nået  frem  til  fjendens 
våbenstyringssystemer,  der  er 
gemt  inde  i  en  stor  labyrint. 
For  at  kunne  pacificere  deres 
affyringsmekanismer  må  du 


finde  det  rigtige  sted  i  labyrin¬ 
ten  .  Dette  sted  er  dog  forskel¬ 
ligt  fra  dag  til  dag.  så  det  er 
umuligt  at  gætte  på  forhånd, 
hvor  stedet  findes. 

Den  eneste  hjælp  er.  at  der 


på  stedet  er  en  stor  kugle, 
som  udsender  et  signal,  du 
har  fået  opgivet  bølgelæng¬ 
den  på .  Et  apparat  i  din  taske 
kan  så  oplyse  dig  om  den  di¬ 
rekte  afstand  hen  til  målet, 


enten  ved  hjælp  af  et  tal  eller 
ved  hjælp  af  en  tone,  der  sti¬ 
ger  eller  falder. 

Må  din  mission  blive  vellyk¬ 
ket.  □ 

Erik  Christensen 


2  HinEt135000:P0KE6]8,  10  :G=14  :DIf1B-*  C2393  j 
Fut  3, G, G3 , C* CG, G  3 :B7=65 :B8=67 :B9=24 
2  C=1 :N=2:0=3:P=4 :Q=5 :U=8  :U=0 :A1 =200 :B2= 
16:B3=48:04=10:85=40:B6=192:G0T0118 
4  F0R1=ZT0Z+PSTEPP  :CURSETB-* Cl  3  ,  B^C  1  +C3,  C 
:DRPWB^  C 1  +N3 ,  B-*  C  I  +01 ,  C  :NEXT  :RETURN 
6  CURSETB*  CZ3  >  B*CZtC3  >  C  :F0RI =Z+NT0Z+USTE 
PN:DRBU  B-*C 1 3  j B*C  1  +C3»  C  sNEXT 
8  CURSET 120,  B*(Z  +  C3  +B-*(ZtQ3/'N-CQ-U3*(Q-W 
3+C,C:FORl=lTO(Q-U3*CQ-U3 
10  C1RCLE1 >  C :NEXT : RETURN 
12  IFR=UTHENX=XX:Y=YY:RETURN 
14  1FR=CTHENX=YY:Y=G-XX:RETURN 
16  1FR=NTHENX=G-XX:Y=G-YY:RETURN 
18  IFR=OTHENX=G-YY:Y=XX:RETURN 
20  XX=1 NT CRNDC 1  3*G3 :YY=1NT CRNDC 1  3*G3 :RET 


URN 

22  U=SQRC  CXX-X1 3*CXX-X1 3  +  CYY-Y1 3*CYY-Y1  3 
3  :IFZl>fl7THENS0UND0,B9*U,N 
24  RETURN 

26  1FZ1  <B8THENPR1NT :PR1NT"PFSTBNDEN  1  LI 
GE  LINIE  ER  "  JlNTCW*B4+0.  53  »"flETER" 

28  RETURN 

30  H1RES :P0KE61 8, 10 :G0SUB26 :D=U :E=81 
32  IFP^CR,X,Y3=NTHENC*CXX,YY3=CHR$C343  :G 
0T078 

34  F0RS=YT0Y-0STEP-C :F=U :Z=D  =G0SUB4 

36  FOR  f1=X-C  TO  X+C  STEP  N 

38  IF  P^CR,f1,S3=CTHENZ=D+F  =G0SUB4ELSEZ=D 

+F+U:G0SUB4 

40  F=F+P2:NEXT 


28 


42  lFA-rCR,X,S-C3=C  THENZ=D+A5  :G0SUB4  :GOT 
048 

44  IFA*  CR,  X, S-C3=NTHENZ=E  :G0SUB6 
46  D=D+A3:E=E+A4=NEXT 
48  IF  S> Y-3. 5  THEN52 
50  lFA*CR,X,Y-P3OCTHENZ=A6:G0SUB4 
52  GET  A*:IFA*OCHR*C83ANDA*OCHR*C93AND 
64  0"  "THEN52 

54  I  FA*=CHR*  C83  THENR=R-C  :  1FR<UTHENR=0 
56  IFA*=CHR*C93THENR=R+C:1FR>0THENR=U 
58  G0SUB12 

60  1FA*=CHR*C930RA*=CHR*C83  THEN30 
62  IFA*CR,  X,  Y-C3=CTHENSH00T  =  UA1  T30  :PLAYU 
, U, U, U :PLAYP, U, U , U :G0SUB22  :G0T052 
64  T=T +C  :  Y=Y-C 
66  1FR=UTHENYY=YY-C 
68  1FR=CTHENXX=XX+C 
20  IFR=NTHENYY=YY+C 
72  1 FR=OTHENXX=XX-C 
74  1FC4CXX,  YY3  O  "f 'THENC*  CXX,  YY3  =  “«  " 

76  G0SUB22 :G0T030 

78  TEXT :P0KE618, 10:P6PER7:lhKØ 

80  :PRJNT :PRINT”DU  NAAEDE  HAALET  EFTER  " 

iT*A4  »"METER"  :PLAYU,U, U, U  :PING 

82  PRINT :PRINT"DU  FULGTE  DENNE  RUTE  Ct:S 

TART  " JCHR* (34  3  i  " sdAAL  3 • " 

84  FOR  J=UTOG:PRINT:PRINTSPCCA43 :FORJ=UT 
OG  :PR1NTC*  C J > i  3  J  :NEXT :NEXT  :FRJNT 
86  F0R1=CT0G-C :FORJ=CTOG-C 
88  IF  ASCCC4CJ, J33>33  THEN  C*CI,J3="  " 

90  NEXT:NEXT:PRINT:PI^INT 
92  PRINT"UIL  DU  PRØUE  IGEN?  <J>  <N>" J 
94  GET  AS:IF  AS  O  "  J "ANDA* O "N" THEN92 
96  CLS : I F  AS="N"THEN  ENO 
98  XX=X1 :YY=Y1 

100  FORR=UTOO:GOSUB12:A^CRJX,Y3=U :NEXT 
102  G0SUB20  :  IFA-^CU,  X^,  YY3  OUTHEN1  02 
104  X1=XX:Y1=YY 

106  F0RR=UT00:G0SUB12:A^(R,X,Y3=N  =NEXT 
108  G0SUB20  : 1 F A-i’  C  U ,  XX  j  YY3  OUTHEN108 
110  R=1NT  CRNDC 1 3*P3 :G0SUB12:G0SUB22 
112  JFU>6THENC*CXX,YY3  =  "  + "ELSE  108 
114  JF  Z1>A7  THENPLAYP , U, U, U 
1 1 6  PAPERØ : 1NK7  :  T=0  :G0SUB22  :G0T030 
118  TEXT:CLS:PR1NT:PRINT"  "  ;CHR*C43  ;CHR* 
C273J"J  TREDIflENSlONAL  LABYRINT" 

120  PR1NTCHRSC43 =PR1NT :PR1NT"  Erik  Chris 
tensen,  7.  november  1984" 

122  PRINT :PRINT  :PRlNT"Du  placeres  ti  Ilae 
Id l gt  i  en  I abyr  I nt  " 

124  PRlNT"Du  skal  i  det  mindst  mulige  an 
tal  " 

126  PRINT”beuaege  IseT  linde  det  rum  hvor 
i  " 

128  PRlNT"maalet  ligger.  Dette  placeres 
ogsaa" 

130  PRlNT"t i  I f ae  Id  igt.  Frekvensen  al  led 
etonen" 

132  PRINT"stlger  med  faldende  direkte  al 
stand" 

134  PRlNT”(ra  maalet.  Alstanden  Igennem 
laby-" 


136  PRINT"Tinten  kan  godt  vaere  meget  la 
en  gere.  " 

138  PRINT  SPRINT  :PRlNT"Benyt  mellemrumsta 
ngenten  C  I  i  ge  |rem3" 

140  PRlNT"og  h  og  v  curserpile  til  at  " 
142  PRlNT”manoevr ere  med. 

144  PRINT :PR1NT :PRlNTSPCtl03"UENT  30  SEK 
UNDER" 

146  FOR  1=0  TO  239  :READ  B^CI3:NEXT 
148  DATA20, 10,0, 100,^20, 10,0,100,0,0,20, 
10,0, 120,20,-10,0, 10,20,0 
150  DATAØ, 110,20,0,220, 10. 19,-10,220, 110 
, 19, 10,220, 10,19,0,220,110,19,0 
152  DATA20, 10,200,0,20,  110,200,0,60,30,0 
,60, 180,30,0,60,20, 10,40,20 
154  DATA20, 110,40,-20,20,30,40,0,20,90,4 
3,0,180,30,40,-20, 180,90,40,20 
156  DATA  180, 30, 40, 0,1 80, 90, 40, 0,60, 30, 12 
3,0,60,90, 120,0,90,45,0,30 
158  DAT Al 50, 45, 0, 30, 60, 30, 30, 15,60,90,30 
,-15,60,45,30,0,60,75,30,0 
160  DA TA  150, 45, 30, -15,  150,75,30, 15,150,4 
5,30,0, 150,75,30,0,90,45,60,0 
162  DATA150, 75, -60, 0,110,55,0, 10,130,55, 
9, 10,90,45,20, 10.90,75,20,-10 
164  DATA90, 55, 20, 0, 90,  65, 20, 0, 130,55,20, 
-10, 130,65,20, 10, 130,55,20,0 
166  0ATA1 30, 65, 20, 0,1 10, 55, 20,0, 110,65,2 
3,0, 110,55,20, 10, 130,55,-20, 10 
168  DATA60, 95, 120,0,20,  10,-160,0,20,-10, 
90,80,60,0, 10,5,-80,0,  10,-5 
170  DATA  1 10,67,20,0, 10,5,-40,0,10,-5,119 
,63,2,0, 1, 1,-4, ø, 1,-1 

172  FOR  I =ØTOG :FORJ=ØTOG :READA*  : A* (0, J  > 13 
=f\x  :C*C  J  ,  I3=CHR*CA^t323  :NEXT  =NEXT 
174  FOR  H=1  TO  3:L=H-1 

176  FOR  1=0  TO  G:«=G-I:FOR  J=0  TO  G:A*CH 
, J , K3=A* CL, I , J 3  :NEXT:NEXT :NEXT  :PING 
178  DATA1 , 1, 1, 1, 1, 1, 1, 1, 1 , 1,  1 ,  1,  li  1,  1 
180  DATA1 ,0,0, 0,0, 1,0, 0,0,0, 1,0, 0,0, 1 
182  DATA1 , 1,0, 1,0,0, 1,0, 1,0, 1,0, 1,0, 1 
184  DATA1 ,0,0, 1,0, 1, 1,0, 1, 1,0,0, 1,0, 1 
186  DATA  1 ,0, 1,0, 0,0, 0,0, 0,1, 0,1, 0,0,1 
188  DATA1 ,0,0, 1 ,0, 1,0, 1,0, 1,0, 1 ,0, 1, 1 
190  DATA], 1,0, 1,0, 0,1, 0,0, 0,0, 1,0, 0,1 
192  DATA1 ,0,0,0, 1, 1,0, 1,0, 1,0, 1, 1,0, 1 
194  DATA1 ,0, 1,0, 0,0,0,  1,0,0, 1,0, 0,0, 1 
196  DATA] ,0,0, 0,1, 1,1, 1,1, 0,0, 0,1, 1,1 
198  DATAl.Ø, 1,0, 1,0, 0,0,  1,0, 1,0, 0,0,1 
200  DATA1, 1,0, 0,0, 0,1, 0,0, 0,1, 0,1, 0,1 
202  DATA1 ,0,0, 1,0, 1,0,0, 1 , 1,0, 1,  1,0, 1 
204  DATA1 ,0,1, 0,0, 0,1, 0,0, 0,0, 0,0, 0,1 
206  DATA  1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 ,  1 ,  1 ,  1 , 1 
208  FOR  1 =46344T046367 :READJ =POKE I , J  =NEXT 
210  DATA63, 63, 63, 63, 63, 63, 63,  63 
212  DATAØ, 12,30, 18, 18,30,  12,0 
214  DATAØ, 0,0, 12, 12,0,0,0 
216  PRINTCHRSC 1 1 3 J "Ønsker  du  ledetone  L, 
alstand  O',  ellerbegge  B  ?"  :GETZS 
218  IFZ*  O "L"ANDZ*  O "A" ANDZS O "B" THEN2 1 6 
220  Z]=ASCCZ*3  : CLS  : GOTO 102 


The  snake 


1  Q=-l 

2  GOTO  5øø 

5  SC=ø 

6  N=ø 

9  P=løø 

lø  PRINT" <CLR) " 

11  POKE  53231,0 

13  FOR  T=lø24  TO  1063: POKE  T, 160= NEXT 

14  FOR  T=lø63  TO  2023  STEP  4ø 
•'POKE  T,  160 : NEXT 

15  FOR  T=2ø23  TO  1934  STEP-1 
: POKE  T, 160: NEXT 

16  FOR  T=1934  TO  1024  STEP-40 
: POKE  T, 16ø 'NEXT 

2ø  fll=16øl : R2= 1 602 : 03=1 603 :R4= 1604 
:  05=  1 605 : 06=1606  ■'  R  7=  1 60? :  R8=  1 603 
: 09= 1609 

21  B 1  =  1 6 1 0 : B2= 1 6 1 1 : B3= 1612:B4=1613 
: B5= 1614:B6=1615:B7=1616: B8= 1 6 1 7 
32  FOR  T=1  TO  20 : X=INT(RND( 1 )*954)+41 
40  POKE  1024+X, 160 
30  NEXT  T 

51  POKE  RI, 56: POKE  02,81= POKE  R3,81 

: POKE  R4, 81 : POKE  R5, 81: POKE  og, 81 
: POKE  R7, 81 

52  POKE  R3, 81 : POKE  R9, 81= POKE  Bl, 31 
:POKE  B2, 81= POKE  B3, 81= POKE  B4,81 
•POKE  B5, 81 

53  POKE  B6, 31: POKE  B7, 81: POKE  B8,32 
6ø  FOR  T=1  TO  lø : X=INT <RND< 1 )#912>+41 
65  IF  PEEK( 1024+X)<>32  THEN  X=INT(RN 

D(l) #9 12) +41 : GOTO  65 
?ø  POKE  1024+X, 102: POKE  55296+X, 1 
80  NEXT  T 

løø  GET  R$ : IF  R$="J"THEN  Q=-4ø 
110  IF  R$="  "THEN  Q=4ø 
120  IF  R$="N"THEN  Q=-l 
130  IF  R*="M"THEN  Q=1 
1 36  B8=B7 :  B?=B6  •'  B6=E5 :  B5=B4 :  B4=B3 
: B3=B2 : B2=B1 : B1=R9 : R9=R8 : R8=R7 
: R7=R6 : R6=R5 

140  R5=R4 :  R4=R3 :  R3=R2 :  R2=R1  -'01=01+0 

150  IF  PEEKCfll )  =  16ø  THEN  3øø 

151  IF  PEEK(01)=81  THEN  3øø 

152  IF  PEEK(Pl)=lø2  THEN  SC=SC+lø 
: N-N+l : P=P-5 : GOSUB  Søø 

154  IF  N=10  THEN  2øø 

155  POKE  01, 56: POKE  R2,81 : POKE  B8,32 
157  FOR  T=1  TO  P:NEXT 

160  GOTO  100 

200  FOR  T=1  TO  20=X=INT(RND(1)#959)+ 

40 

210  POKE  1024+X, 160 

220  NEXT  T 

221  FOR  T=1  TO  lø:POKE  54277,64 
: POKE  54276, 17: POKE  54273,17 
: POKE  54272,3? 

222  POKE  54276,ø: POKE  54277,0 
: POKE  54273,0 

223  FOR  KL=1  TO  løø: NEXT 

: POKE  54277, 128: POKE  54276, 17 
: POKE  54273, 40: POKE  54272,43 
225  FOR  KL=1  TO  løø : NEXT : POKE  54276,0 
: POKE  5427?,ø:P0KE  54273,0= NEXT  T 
23ø  FOR  T=1  TO  10 = X=INT(RND( 1 )*912)+ 

41 

235  IF  PEEK(lø24+X)<>32  THEN  X=INT<R 
NIK  1 )*912)+41 =  GOTO  235 
24ø  POKE  1024+X, 102= POKE  55296+X, 1 
25ø  NEXT  T 
26ø  N=ø 
270  GOTO  155 
300  PRINT" (CLR)" 

305  PRINT" (CRSR  NED, CRSR  HØJRES- GUL, 
SPØGE) DIN  SCORE  VRR  ";SC 
31ø  PRINT" (CRSR  NED2, CRSR  HØJRE4, 
HVID-RVS  ON, SPØCE)HIGH  SCORE  TRVL 


E" 

311  IF  SC>H5  THEN  PRINT" (CRSR  NED, 
CRSR  Hø JRE3-SPØCE) SKRIV  DIT  NØVN  " 
: GOTO  4øø 

312  PRINT" (CRSR  NED2)";H1,R* 

313  PRINT  H2,B$ 

314  PRINT  H3, C$ 

315  PRINT  H4,D$ 

316  PRINT  H5,E$ 

32ø  PRINT" (CRSR  NED2, CRSR  HØJRE3, 
GRØN, SPØCE)ET  SPIL  TIL  ?  " 

33ø  GET  T$  = IF  T$="J"THEN  POKE  53281,0 
: GOTO  1 

340  IF  T$="N"THEN  PRINT"(CLR)TØK  FOR 
NU": END 
350  GOTO  330 

4øø  IF  SOHI  THEN  H5=H4:H4=H3=H3=H2 
: H2=H1 =  Hl =SC  =  E$=DJ  =  D$=C$  =  C$=B$ 

■ B$=0$  =  GOTO  450 

410  IF  SC>H2  THEN  H5=H4:H4=H3=H3=H2 
: H2=SC  =  E$=DJ  =  D$=C*  =  C*=B$ : INPUT  B$ 
:GOTO  312 

420  IF  SC>H3  THEN  H5=H4 : H4=H3 : H3=SC 
:E*=D*:D$=C$: INPUT  C$=GOTO  312 
43ø  IF  SOH4  THEN  H5=H4 = H4=SC = EJ=D* 

: INPUT  DJ: GOTO  312 
440  H5=SC= INPUT  E*=GOTO  312 
450  INPUT  0$  =  GOTO  312 
5øø  POKE  53280, 14= POKE  53281,0 
: PRINT" (CLR,RVS  ON, 

SPØCE 13) SLØNGEN 

II 

515  PRINT" (CRSR  NED, CRSR  HØJRE6, 

RVS  ON , SPØCE4 ) I NSTRUKT I ONER 

55ø  PRINT" (CRSR  NED, CRSR  HøJRE3)DU  E 
R  EN  SLØNGE  DER  SNOR  SIG  RUNDT" 

56ø  PRINT" (CRSR  NED, CRSR  HøJRE3)PØØ 
SKØERMEN.  DU  SKØL  SPISE  DISSE  8" 
570  PRINT" (CRSR  NED, CRSR  HøJRE3)F0R 
ØT  KOMME  PØØ  EN  NV  BØNE.HUSK  HT" 

572  PR I NT "(CRSR  NED, CRSR  HØJRE3)DU  I 
KKE  MØØ  SPISE  DISSE  (RVS  ON, SPØCE, 
RVS  OFF).  HVER  " 

573  PRINT" (CRSR  NED, CRSR  HøJRE3)GHNG 
DU  SPISER  S  BEVREGER  DU  DIG  " 

575  PRINT" (CRSR  NED, CRSR  HøJRE3)HURT 
I  GERE,  OG  BLIVER  LRENGERE. 

(CRSR  NED, SPØCE) PRS  PRR  VREGGE 
N  OG  DIN  HRLE! " 

599  PRINT" (CRSR  NED, CRSR  HØJRE3, 

CRSR  NED2)TfiST  SPØCE 
6øø  GET  R$  = IF  RJ="  "THEN  640 
610  GOTO  600 

64ø  PRINT" (CLR, CRSR  NED2, 

CRSR  HøJRE3)DU  ER  =  8IIIIIIIIII 
650  PRINT" (CRSR  NED2-CRSR  HØJRE3)SØH 
DØN  STVRER  DU  = 

66ø  PRINT" (CRSR  NED, CRSR  HØJRE9)J" 

67ø  PRINT" (CRSR  HØJRE9) I " 

675  PRINT" (CRSR  HØJRE9)I" 

680  PRINT" (CRSR  HØJRE6)N - M“ 

685  PRINT" (CRSR  HøJRE9)l" 

686  PR I NT "(CRSR  HøJRE9)l" 

688  PRINT" (CRSR  HØJRE7) SPØCE  " 

69ø  PRINT" (CRSR  NED? , CRSR  HøJRE3)TØS 
T  SPØCE 

7øø  GET  R$ : IF  RJ="  "THEN  POKE  53281,1 
=GOTO  5 
71ø  GOTO  ?øø 
800  POKE  54296,15 
810  FOR  T=1  TO  10 = POKE  54277,64 
=POKE  54276,17= POKE  54273,17 
=  POKE  54272,37 

815  FOR  KL=1  TO  løø = NEXT = POKE  54276,0 
: POKE  54277,0= POKE  54273,0 'NEXT  T 
820  RETURN 


■  Spillet  »the  snake«  er  et  hur¬ 
tigt  actionspil,  der  også  fås  til 
ABC80  som  købespil. 

Dette  program,  der  ikke  fylder 
mere  end  2,75  K,  er  helt  på 
toppen  både  hvad  angår  ha¬ 
stighed  og  grafik. 

Spillet  går  ud  på.  at  du  skal 
styre  en  slange  (dig)  på  en 
skærm,  hvor  der  er  nogle  mål 
og  mure,  Støder  du  ind  i  en 
mur  dør  du,  og  for  hver  gang 
du  rammer  et  mål  bliver  du 
længere  og  hastigheden 
øges.  Spillet  er  ellers  selvfor¬ 
klarende.  så  god  fornøjelse. □ 
Søæn  Hansen 


Special  input 


■  Har  du  brug  for  lineinput, 
der  tillader  brug  at  de  ellers 
"ulovlige"  coloner,  komma¬ 
er  etc. 

Med  dette  maskinkodepro¬ 
gram  er  alle  dine  sorger  væk 
-  Programmet  startes  med 
SYS700,  hvorefter  du  kan  lave 
"lineinput"  -  et  eksempel: 
SYS700: INPUT  A$  Her  må  biu¬ 
ges  Smart  ikke?D 

Thomas  Ravn 


i 


50  REM  *********************** 

GO  : 

70  FOR  T=70O  TO  709: READ  AsPOKE  T,A 
80  CK=CK  +A : NEXT  T 
90  : 

100  IF  CK<  > 1062  THEN  PR INT”DATA  FEJL 
! ' : STOP 
1  10  : 

120  PR INT”<  CLR  JDATA  OK!” 

130  PRINTSPRINT 

140  PRINT”  SYS< 700): INPUT  A*“ 

150  PRINT*  - ” 

160  PRINT 

170  PRINT”  t  LINE-INPUT  t” 

180  PRINT"  <  INPUT  MED  KOMMA)” 

190  PRINT:PRINT 
200  : 

210  DATA  169,34,141,119,2,169,1,133, 
198,96 


Print  Præcis 


■  Med  dette  lille  smarte  pro¬ 
gram  kan  du  nu  selv  bestem¬ 
me,  hvor  på  skærmen  du  vil 
skrive.  Det  gøres  ved.  at  du 
blot  indtaster:  SYS850.1ini- 
enr,position:PRINT"tekst"  □ 
John  Bach  Thygesen 


10  REM  MASKINKODE  ROUTINEN  KAN  LAEGG 
ES  HVOR  SOM  HELST  I  HUKOMMELSEN 
20  SK  =850 : FOR  A=SK  TO  SK  +  12:READ  8 
: POKE  A , B : NEXT 

30  DATA  32,155,183,134,214,32,155, 
183,134,211 ,76,16,229 
40  REM  **  DEMOSTRATION  AF  PROGRAMMET 
** 

45  REM  **  FORST  LINJENR.  ****** 

******  DERNEST  KOLLONENR.* 

**** 

50  PRINT  CHR*<  147) : SYS  SK, 3*4, 15 

55  PRINT  "ALT  OK  . " 

: FOR  A  = 1  TO  2000: NEXT 
60  PRINT  CHR*<  1 47 ) : A*= " COMMODORE  64  “ 
70  FOR  A=24  TO  1  STEP- 1: SYS  SK,A,A-1 
SPRINT  A* 

80  FOR  B  = 1  TO  1 00 : NEXT :  KEXT 
: FOR  D= 1  TO  1500:NEXT 
90  PRINT  CHR*(  147)  SFOR  A=39  TO  O  STE 
P-lsSYS  SK , 12 ,A 

100  PRINT  A*:FOR  B=1  TO  150 : NEXT : NEXT 
: FOR  X= 1  TO  1000: NEXT 
SPRINT  CHR*<  1 47 ) : RUN 


s  | 


31 


■  Hvis  du  er  den  lykkelige 
ejer  af  en  ENTERPRISE  og  den 
ulykkelige  ejer  af  en  plade¬ 
samling  du  ikke  kan  finde 
rundt  i.  kan  dette  program 
bruges. 


Programmet,  der  er  menusty¬ 
ret  og  nemt  at  bruge,  kan  in¬ 
deholde  op  tU  1 00  plader  For 
hver  plade  kan  du  indtaste 
gruppen,  navnet  og  specieUe 
data  om  den  pågældende 
plade .  □  Sune  Frost-Olsen 
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!  Sune  Frost-Ol 
SET  STATUS  OFF 
LET  Q=0 
DEF  PLADELAGER 
TEXT  80 
DEF  FTAST 

SET  FKEY  1  " 
SET  FKEY  2  - 
SET  FKEY  3  - 
SET  FKEY  4  - 
SET  FKEY  3  - 
SET  FKEY  6  - 
SET  FKEY  7  - 
END  DEF 
CALL  FTAST 
PING 
LET  X=0 
STRING  GRUPPE* 
STRING  TITEL* ( 
STRING  DATA* ( 1 
STRING  X* ( 1  TO 
CLEAR  SCREEN 
PRINT  ■•••*•• • 


i  "S<CHR*<  13) 
2"t«CHR*<  13) 
3"fcCHR*<13> 
4"8,CHR*<  13) 
3 " &CHR* (13) 
6"&tCHR*  ( 13) 
7"8<CHR*  (13) 


(1  TO  100) *40 
1  TO  100) #40 
TO  100) *80 
100 )  *40 


PRINT  AT  3,0: -Ny  Plade  ! 

PRINT  AT  7, O: "Søgning  : 

PRINT  AT  9, 0: -Load  Data  : 

PRINT  AT  11,0: -Save  Data 

PRINT  AT  13,0: -Total  Udprintning 

PRINT  AT  13,0: "Pr inter 

PRINT  AT  17,0: "Al fabetiser ing 

INPUT  AT  19,20:A* 

IF  A*= " 1 •  THEN  GOTO  490 
IF  A*="2"  THEN  GOTO  620 
IF  A**-3"  THEN  CALL  HENT_DATA 
IF  A*= ■ 4 "  THEN  CALL  GEM_DATA 
IF  A*=-5-  THEN  CALL  TOTAL_UDPRINT 
IF  A*=»-6-  TK-iN  CALL  PRINTER 
IF  A**-7-  THEN  CALL  ALFAB_2 
GOTO  400 

CLEAR  SCREEN: SOUND 
PRINT  - 

LET  X-X+l 


PLADELAGER 


INPUT  PROMPT  -GRUPPE:  -:GRUPPES(X) 

INPUT  PROMPT  -titel:  -:titel*(x> 

INPUT  PROMPT  -data:  -:data*(X) 

PRINT 

PRINT 

INPUT  PROMPT  -ER  DISSE  DATA  OK  (J/N) I *: OK* 

IF  OKS- " j "  OR  OK*=-J-  THEN  GOTO  610 
IF  OK*="n"  OR  OKS--N-  THEN  GOTO  320 
GOTO  370 
GOTO  310 

CLEAR  SCREEN: PING 

PRINT  -Søg  på  Gruppe  :  Fl" 

PRINT 

PRINT  -Søg  På  Titel  :  F2- 
PRINT 

INPUT  AT  3)16: A* 

IF  A*=-l“  THEN  GOTO  710 
IF  A*=-2-  THEN  GOTO  970 
GOTO  670 

CLEAR  SCREEN: PING 

PRINT  ■  SØGNING 

PRINT  :PRINT 

INPUT  PROMPT  -Input  Gruppen*  Navn? " : GR* 

IF  GR*-”  THEN  GOTO  310 
LET  G-LEN (GR*) 

FOR  A-l  TO  X 

LET  GRU*-GRUPPE*(A> 

IF  GRU*(1:G)-GR*  THEN  GOSUB  S60 
NEXT  A 

PRINT  -end-:ping 
FOR  Y-l  TO  X 

LET  X* (Y> -GRUPPE* (Y) 

NEXT  Y 

CALL  UDPRINT 
CLEAR  SCREEN: PING 
PRINT  GRUPPE* (AI 
PRINT 

PRINT  TITEL* ( A I 
PRINT 

PRINT  DATA* ( A ) 

INPUT  AT  12, O, PROMPT  "SKAL  DISSE  DATA  RETTES  (J/n)  ■ 

IF  AS- ■ J ■  OR  A*»"J-  THEN  CALL  RETTER 

PRINT  AT  22, AO: “TRYK  FOR  NSTE  SIDE- 

IF  INKEY*--"  THEN  930 

RETURN 

CLEAR  SCREEN: PING 

PRINT  ”  SØGNING 

PRINT  :PRINT 

INPUT  PROMPT  -Input  Titel :-:TI* 

IF  TI*---  THEN  GOTO  310 
LET  G-LEN (TI*) 

FOR  A- 1  TO  X 

LET  TIT*-TITEL*(A) 

IF  T I T* ( 1 : G ) -TI*  THEN  GOSUB  860 
!  IF  TITEL*  (A) -TI*  THEN  GOSUB  800 
NEXT  A 
PRINT  -END- 
FOR  Y-l  TO  X 

LET  X* ( Y) —TITEL* ( Y) 

NEXT  Y 
CALL  UDPRINT 
UA  IT  1 
GOTO  310 
DEF  GEM_DATA 
SET  STATUS  ON 

PRINT  AT  22,0: -SAVER  DATA  OM  10  SEC." 

WAIT  10 

PRINT  AT  22, O:- 

OPEN  »10: -tape-i:file_data-  access  output 
print  *io:x 
FOR  Y-l  TO  X 

PRINT  *10: GRUPPE* (Y) 

PRINT  M10:TITEL*(Y) 

PRINT  *10:DATA*(Y) 

NEXT  Y 
CLOSE  «10 
SET  STATUS  OFF 
END  DEF 
DEF  HENT_DATA 
SET  STATUS  ON 

OPEN  »10: -TAPE-l:FILE_DATA-  ACCESS  INPUT 

INPUT  »io:x 

FOR  Y-l  TO  X 

INPUT  *10:GRUPPES(Y) 

INPUT  »10: TITEL* ( Y) 

INPUT  »10:DATA*(Y> 

NEXT  Y 
CLOSE  *10 
SET  STATUS  OFF 
END  DEF 
DEF  UDPRINT 

INPUT  PROMPT  -VIL  DU  SE  ALLE  GRUPPER  I  LAGERET  (J < 
IF  AS--J-  THEN  ninmilll 


**»**»**»  ******** ■ 

1*60  FOR  Y-l  TO  X 

1470  PRINT  X* ( Y) 

1430  NEXT  Y 

1490  PRINT  ********************************************* 

****************** 

1500  PRINT  -TRYK  FOR  MENU- 

1310  IF  INKEY*---  THEN  1310 

1320  ELSE 

1330  PRINT  -OK.- 

1340  END  IF 

1330  GOTO  310 

1560  END  DEF 

1370  DEF  RETTER 

1380  CLEAR  SCREEN: PING 

1390  PRINT  ■  RETTER  DATA 

1600  PRINT  AT  3,0: "Gruppe: “  GRUPPE* ( A ) 

1610  PRINT  AT  5,0: "Titel : *  TITEL*(A) 

1620  PRINT  AT  7,0: -Data  i*  DATA* (A) 

1630  PRINT  AT  10,0:"  NYE  DATA  NYE  DATA  NYE  DATA 
NYE  DATA 

1640  INPUT  AT  13, O, PROMPT  "Gruppe: ■: GRUPP* 

1650  IF  GRUPP*--*-  THEN  LET  GRUPPE* (A) -GRUPPE* ( A) : GOTO  1670 

1660  LET  GRUPPE* (A) -GRUPP« 

1670  INPUT  AT  13, O, PROMPT  "TI tel : ■ : TITE* 

1680  IF  TITE*--*-  THEN  LET  TITEL* (A) -TITEL* (A) : GOTO  1700 

1690  LET  TITEL* ( A) »TITE* 

1700  INPUT  AT  17, O, PROMPT  "Data  : ■ : DAT* 

1710  IF  DAT*--*-  THEN  LET  DATA* (A) -DATA* ( A ): GOTO  1730 

1720  LET  DATA* ( A ) -DAT* 

1730  INPUT  AT  19, O, PROMPT  -SKAL  DISSE  DATA  RETTES  (J/n)  - : A* 

1740  IF  A*--J-  OR  AS-  "  J ■  THEN  CALL  RETTER 

1730  END  DEF 

1760  END  DEF 

1770  DEF  TOT AL_UDPR INT 

1780  CLEAR  SCREEN 

1790  PRINT  -Dette  er  en  TOTAL  UDPRINTNING:’ 

1800  PRINT  -*************************************************** 

**!***•»***»*- 


1910  FOR  V-l  TO  X 

1820  PRINT  GRUPPE* (V),TAB(40)l*:"| TITEL* ( V) 

1830  NEXT  V 

1340  PRINT  **************************************************** 

»*••••*****••- 

1830  PRINT  ■  INFORMATION:  DER  ER  "|X|-  GRUPPER  I  LAGERET." 

1860  IF  INKEY*--'  THEN  GOTO  1860 
1870  GOTO  310 

1830  END  DEF 

1890  CALL  PLADELAGER 
1900  DEF  PRINTER 
1910  PRINT  »104: 

1920  PRINT  »104: -COMPUTER  PLADELAGER- 

1930  FOR  A-l  TO  X 

1940  LET  Q-0 

1930  LET  GRUP*-GRUPPE* ( A ) 

1960  PRINT  »104:GRUPPE*(A) 1 

1970  DO 

1980  LET  0=0*1 

1990  PRINT  »104: ■  -| 

2000  LET  G-LEN (GRUP»)*Q 

2010  LOOP  UNTIL  G-40 

2020  PRINT  *104: |":  ■ ) TITEL* ( A ) 

2030  NEXT  A 

2040  END  DEF 

2030  DEF  ALFAB_2 

2060  LET  XX-X 

2070  LET  XXX-X 

2080  DO  UNTIL  XX-1 

2090  FOR  A- 1  TO  XX-1 

2100  IF  ORD (GRUPPE* (A) ) >ORD (GRUPPES (At  1 ) )  THEN 

2110  LET  FLYT*»GRUPPE*(A) 

2120  LET  GRUPPE* ( A ) -GRUPPES (A+ 1 ) 

2130  LET  GRUPPE* ( A* 1 ) —FLYT* 

2140  LET  FLYT*— TI TEL* (A) 

2130  LET  TITEL* ( A) -TITEL* ( A*1 ) 

2160  LET  TITEL* ( Ar  1 ) -FLYT* 

2170  LET  FLYT*- DATA* ( A) 

2180  LET  DAT A*  ( A)  -DATA*  ( A+ 1 ) 

2190  LET  DATA* ( A*  1 ) —FLYT* 

2200  LET  XXX— A 

2210  END  IF 

2220  NEXT  A 

2230  IF  XX-XXX  THEN  EXIT  DO 

.  ....  2240  LET  XX-XXX 

2230  LOOP  i 

2260  END  DEF  Æ 


Evigheds¬ 
kalender 


■  Programmet  kan  udskrive 
en  kalender  for  en  hvilken 
som  helst  måned  i  et  vilkårligt 
år  på  en  MPS802  printer,  ikke 
MPS801 ,  da  styrekaraktererne 
er  forskellige.  Programmet  la¬ 
ver  et  A4-ark  om  til  et  kalen¬ 
derark,  og  tester  også  for 
eventuelle  skudår. □ 


10  INPUT" <CLR,CRSR  NED3 , 

SPACE2) SKRIV  ARRSTAL  ";V 1 
15  INPUT" <CRSR  NED2 ,  SPRCE2 ) SKR I V  Mflfl 
HED  <TRL)"JM1 
2ø  DIN  Mfi$< 12) : DIN  AN<15) 
i  3ø  GOSUB  2øøøø : GOS UB  21øøø 

50  OPEN  4,4  = IF  Ml >2  THEN  GOSUB  3øøøø 
: GOTO  llø 

løø  F=365*V1  +  1+31*<M1-1>+INT<<V1-1V 
4)-INT< . 75#< I NT <Vl-l)/100+l )) 

:  llø  U=F-INT<F/7>*7 
210  PRINT#4, =PRINT#4, =PRINT#4, 

CHR*  < 1 4 ) CHR$ <1 4  > "  " ; V 1 ; MA$ < M 1) ; V 1 

215  FOR  Dl=l  TO  RN<M1) 

22ø  PR I NT #4 ,  CHR$ (14)"  - 

.  . -  —  -  —  - 1 1 

23ø  IF  U=7  THEN  U=ø 

24ø  PRINT#4,"  ";U$<U);"  DEN  "i  Dl  i 

II  II 

25ø  U=U+1 
26ø  NEXT  Dl 

3øø  FOR  P=ø  T0<66-AN<Ml>#2+2) 

31ø  PRINT#4, :NEXT  P 
4øø  GLOSE  4: END 
2øøøø  FOR  I=ø  TO  7 


2øølø  READ  U$<I> 

2øø2ø  NEXT  I 

2øø3ø  DATA  LØRDAG  .*  SØNDAG  ,  MANDAG  , 
T-^SDAG  1  ONSDAG  ,  TORSDAG ,  FREDAG  , 
2øø4ø  RETURN 
21øøø  FOR  J=1  TO  12 
21ølø  READ  Mfl«CJ) 

21020  NEXT  J 

21030  DATA**  JANUAR  **,*#  FEBRUAR  **, 
***  MARTS  **.*,*.**  APRIL  ***, 

****  MAJ  **** 

21ø4ø  DATA***  JUNI  ***,***  JULI  ***, 
**  AUGUST  **,*  SEPTEMBER  *, 

**  OKTOBER  ** 

21ø5ø  DATA*  NOVEMBER  *,*  DECEMBER  * 
22øøø  FOR  L=1  TO  12 ; READ  AN<L) : NEXT  L 
22ølø  DATA  31,0,31,30,31,30,31,31,30, 
31,30,31 

221øø  IF  I NT < V 1 X4 ) O < V 1 /4 ) THEN  AN<2) 
=28 : RETURN 

22118  AN (2) =29 : RETURN 
3øøøø  F=365*V 1  + 1 +31 *< M 1 - 1 > - 1 NT < . 4*M 1 
+2 . 3 ) + I NT ( V 1 X4 ) - I NT ( . 75*  < I NT  < V 1 / 1 
øø)+l)> 

3øølø  RETURN 


Black  Jack 


Man  kan  være  op  til  5  spillere 
samtidigt,  men  ved  at  ændre 
ved  DIM()  sætningen  i  linie  5 
kan  man  blive  flere. 

Black  Jack  er  et  kortspil,  hvor 
det  gælder  om  at  komme 
tættest  på  2 1 ,  men  samtidigt 
skal  man  passe  på  ikke  at 
overskride  dette  tal.  Es  gælder 
for  1  eller  1 1 .  Billedkort  for  10. 
Øvrige  kort  gælder  for  deres 
"pålydende".  Hvis  du  træk¬ 
ker  et  es  eller  flere,  således  at 
det  samlede  antal  øjne  over- 


4  DIM  C0I52):  LE!  1-0,  DIM  B<52> 

5  DIM  A*<5, 10):  LET  6-0:  DIM  F<5>:  LET  E-0:  DIM  Z<53) 

6  LET  M-0:  LET  Ui-0:  LET  1-0:  DIM  SU0> 

7  DIM  A(52) 

10  GENPAT  1,129, 16,56,16,04,254,84, 16, 56 

20  GENPAT  1,130, 16, 36, 124,254, 254, 238, 84, 16 

21  GENPAT  1,131, 16,56, 124,254, 124,36, 16,0 

25  GENPAT  1, 132,88, 238, 254, 254, 124,56, 16,00 

26  GENPAT  1,136,0,10,10,31,31,8,20,17:  GENPAT  1,138,16,8,23,39,71,135,3.3:  GENPA 
T  1,137,0,160,160,240,240,32,80,16:  GENPAT  1 , 139, 16, 32, 224, 200, 196, 194, 1 28, 1 28 

27  GENPAT  1,140,0,4,7,7,4,8,8,11:  GENPAT  1, 141,0, 128, 128, 128, 128, 192,64,64:  GENP 
AT  1,142,8,12,19,32,80,136,4,3:  GENPAT  1, 143,64, 192,32, 16,24,36,64, 128 

28  GENPAT  1 , 135, 204, 204,50, 50, 204, 204, 50, 50 

29  GENPAT  1,144,0,0,7,15,31,8,20,17:  GENPAT  I, 145,0,0, 192,224,240,32,80, 16:  GEIC 
AT  1,146,16,8,23,33,65, 129, 129, 129:  GENPAT  0,35,16,32,224,8.4,2.1,1 

32  GENPAT  1,133,68,202,81,81,81,74,68,0 

34  GENPAT  1,134,16,16,16,16,16,16,16,16 

50  LET  K-2:  LET  L-l 

60  VS  4 

00  COLOUP  4,1 

90  PAPER  1 

95  II*  1 

100  COtOUR  0, 15:  CLS 
110  GOTO  5000 

1000  CSR  K,Ll  ir  A-10  THEN  PRINT  -  "jOR*<  133<|‘  '  EL  SE  PRINT  *  "|A{"  “ 

1010  CSR  K,L*ll  ir  A>3  THEN  PRINT  ■  -jCHPS<B»j"  -|D*«>B)|-  “  ELSE  PRINT  - 

1020  CSR  K,L*2:  IF  A-2  OR  A-3  (JR  A-8  OR  A-10  I  HEN  PRINT  *  "jOCS-B-r  *  ELSE 
PRINT  “ 

1030  CSR  K,L*3:  IF  A-9  OR  A-10  TlCN  PRINT  -  -|ClC*<B>}-  "sOCS.B.j"  -  ELSE  PRI 
NT  ■ 

1040  CSR  K,L«4:  ir  A-l  OR  A-3  OR  A-5  OR  A-9  TMEN  PRINT  *  ~jC**»<B»j*  -  ELSE 

IF  A-6  OR  A-7  OR  A-0  THEN  PRINT  -  ■jCHP*«B>|‘  -|CHR*«B>|'  •  ElSE  PRINT 
1050  CSR  K,L*3:  IF  A-9  OR  A-IO  THEN  PRINT  *  -;CHRR<B»j  "  "|CiC»  ELSE  FRI 

NT  - 

1055  CSR  K,L*6:  IF  A-2  OR  A-3  OR  A-0  OR  A-7  OR  A-lO  TlCN  PRINT  -  ”;ClR»<B»j* 

■  ELSE  PRINT  “ 

1060  CSR  K,L*7:  IF  A>3  THEN  PRINT  -  ";OR*<B*j-  "jCHR*«B*|"  *  ELSE  PRINT 

1070  CSR  K,L*8l  IF  A-10  THEN  PPINT  j"  "| CHFSt 133)1  *  '  ELSE  PRINT  -  *;A;-  - 

1080  RETURN 

2000  CSR  K,L:  PRINT  "K" }CHR»« B> ;CHR»« B * ;CHRS« B * j "K" 

2010  CSR  K,L*I:  PRINT  * 

2020  CSR  K,L*2l  PRINT  "  “5CHP*tl36)|CHRS< 137*;CHR». 134 -  - 
2030  CSR  K,L*3i  PPINT  -  “ jCHR»< 138) ;CHP4> 139 • ;CHPS. 134 • ; - 
2040  CSR  K,L*4:  PPINT  -  ”;CHRS« 135 > ;Ch»  135 ' jCHRt' 1 34 • ; 

2050  CSR  K,L*3:  PPINT  -  "|CHR4( 135) jClC»< 135  ;CHR». 124. ; 

2060  CSR  K,L»6:  PPINT  -  "}CHPS< 134); -  - 
2070  CSR  K,L»7:  PPINT  “ 

2000  CSR  K,L«8:  PRINT  "K" ;CHP*(B) |CHP»< b» ;LHP*t B> f "I * 

2090  RETURN 

3000  CSR  K,L:  PRINT  -Q”;CHR»(B) }CHR»' B » ;CI*»«0' j  "0" 

3010  CSR  K,L*ll  PRINT  - 

3020  CSR  K,L«2l  PRINT  -  “jCHRSi 140) jCMR*t 141 >}ChR*i 134.; "  * 

3030  CSR  K,L*3:  PRINT  -  -jCHRRi 142) {CHR»< 143) ;ClC«<  I34» { *  * 

3040  CSR  K,L*4:  PRINT  "  CHR*<133)  }ClC*t  135» ; O**«  134 * ;  *  - 
3050  CSR  K,L*3:  PPINT  -  “{CMRS( 135) jCHPS« 135» |CHR«< !34» } *  * 

3070  CSR  K.L+6:  PRINT  -  ";Cl«*<  134 . ;  "  - 

3000  CSR  K,L*7:  PRINT  - 

3090  CSR  K,L*8:  PRINT  "Q"; CHRS(B) »CHR*< B) ;CHRS< B » j "O" 

3100  RETURN 

4000  CSR  K,L:  PRINT  "J" ;CHR*<B) SCHR»i B) ;CHR*. B «; " J" 

4010  CSR  K,L*1:  PRINT  “ 

4020  CSR  K,L+2l  PRINT  *  "jCHRS« 144) SCHP*. 145) {CHPS« 134 • j “  - 
4030  CSR  K,L+3:  PRINT  -  "}CHRS< 146);CHP»<33)jCHP»< 134 "  - 
4040  CSR  K,L*4:  PRINT  -  "jCHR4i  135)  ;CHR*i  135'  ;CkR»'*I34  ij  "  * 

4050  CSR  K,L*5:  PRINT  -  "jCHRS« 135) ;CHP»i 135- ;CHR*- 134, ; *  * 

4070  CSR  K,L*6:  PRINT  “  ";CHR»< 134 ) j "  - 

4000  CSR  K,L*7:  PRINT  " 

4090  CSR  K,L*8:  PRINT  " J" jCHRS(B) ;CHR»< Bi jCHPSi B>; “J" 

4100  RETURN 
5000  REM 

5002  CSR  0,10:  INPUT  "Indtast  antal  spi  Har*  ";C 

5003  LET  H-0 

5004  LET  G-0:  LET  M-0:  LET  D-0 

5005  LET  L-12:  LET  K-2:  LET  D-0 
5010  CLS 

5020  F OP  A=1  TO  C 

5030  PRINT  "Indtast  navn  paa  spil  I  ar  nr.";A 
5040  INPUT  At(A) 

5050  CLS  J 

5060  NEXT  A:  GOSUB  7000  MHAOTICM  m 

5061  LET  P-100:  LET  MTX-0  9 

5062  FOR  A-l  TO  10  J-J 

5063  LET  I -O:  LET  S<A)-0:  NEXT  A  ^ 

5065  LET  ES-O:  IF  D*C  AND  WiO  TMEN  jGTO  il 000  lWWTvmTfttn  UrTn^M 

5066  IF  C=D  THEN  LET  D-0  L  ffi|  A 

5067  PAUSE  2000  TIi 


stiger  21 ,  bliver  esset  eller  es¬ 
serne  regnet  for  1  i  stedet  for 
1 1 .  Da  computeren  er  ban¬ 
kør.  vinder  den  altid,  når  den 
og  spilleren  har  det  samme 
antal  point. 

Spillet  starter  med  1 00  kroner  i 
puljen,  og  den  stiger  med  spil¬ 
lerens  indsats,  hvis  han  taber. 

Hvis  computeren  taber  læg¬ 
ger  den  1 00  ind  igen.  Når  he¬ 
le  bunken  er  brugt,  skrives 
slutresultat  et.  □ 

Birger  Larsen 

5069  LET  CES-O 

5070  LET  D«D» 1 
5572  LET  G-0 

5073  LET  Ml -O:  LET  H-O 
5075  CSR  0,0:  PRINT 

5000  CSR  0,0:  PRINT  "Jag  »pi  Ilar  »ad  -|A*.D> 

5110  REM  TRAE»  ET  KORT: 

5114  IF  K>30  TICN  LET  K-2 

5115  LET  6-6.1:  REM  ANT.kORT 

5120  LET  Zl-Zl-I 

5121  IF  Zl-C  TMEN  FOR  A-l  TO  5:  CSR  19,1:  PRINT  "Sidst*  ofcgang":  fAUSE  500:  CSR 

19,1:  PRINT  -  PAUSE  50 O:  NEXT  :  LET  U-l:  GOSUB  7100 

5122  LET  A-Z.Z1) 

5125  If  A  27  TICN  C  OL  OUR  1,1  ELSE  COLOUR  1,8 

5126  IF  A<  14  TICN  LET  B-129  ELSE  IF  A>13  AND  A<27  THEN  LET  B-130  ELSE  If  A.2 
6  AND  A  40  THEN  LET  6-131  ELSE  IF  A>39  TMEN  LET  B-132 

5130  IF  A  13  AND  A< 27  TMEN  LET  A-A-13  ELSE  IF  A/26  AND  A< 40  TMEN  LET  A-A-26  E 
LSE  IF  A  39  TICN  LET  A-A-39 

5140  IF  All  TMEN  GOSUB  1000  ELSE  IF  A-13  THEN  GOSUB  2000  ELSE  IF  A-12  THEN 
GOSUB  3000  ELSE  IF  A-l 1  TMEN  GOSUB  4000 
5150  IF  L-l  TMEN  GOTO  8020 
bl70  IF  A/10  TMEN  LET  E-10  ELSE  LET  E-A 
5172  IF  E-l  TICN  LET  E-Ill  LET  ES-ES« 10 

5174  IF  F » D» ♦£. 21  AND  ES>1  THEN  LET  F(D>»F(D)-10:  LET  ES-ESIO 

5175  IF  F(D'*E>21  AND  ES>1  TMEN  GOTO  5174 

5177  IF  F (D)«£<22  AND  G-5  TMEN  LET  F»D>-21:  CSR  22,10:  PRINT  "FEM  KORT":  GOSUB 
10000:  GOTO  5200 
5100  LET  F<D)-F<D)*E 

5190  IF  F(D)>21  TMEN  CSR  0,22:  PRINT  "  DU  TRAK  OVER  “;A*«D)j"  ":  LET 

M-2:  GOSUB  10000:  LET  F<D)-0:  LET  K-2:  LET  L-12:  GOTO  5065 
5200  CSR  0,22:  PRINT  "Du  har " | F(D) j “vi  I  du  hava  flara  N/RET" 

5210  IF  Gv2  TICN  GOSUB  9000 

5220  CSR  25,22:  INPUT  Bt:  IF  LEFTtiBt, 1 )-“N"  THEN  GOSUB  10000:  LET  F<D)-0:  GOTO 
8000 

5230  LET  K-*«6 

5240  GOTO  5110 

7000  REM  BLANDER  KORT 

7002  FOR  A-|  TO  52:  LET  AiA>-0:  NEXT  A 

7005  CSR  0,10:  PRINT  "  Jag  blandar  Kort 

7007  FOR  A-|  TO  52 

7010  LET  R- INT 1 RND>52  > ♦ 1 

7015  IF  A(R>-0  THEN  LET  A(R>-1:  LET  Z(R>-A  ELSE  GOTO  7010 

7020  NEXT  A:  LET  Zl-53:  RETURN 

7100  REM  BLANDER  RESTEN  AF  BUNKEN 

7110  CSR  0,10:  PRINT  "Jag  blandar  bunKan 

7130  FOR  A-Zl-G  TO  52 

7160  LET  R-lNTiRND*52>«l 

7165  FOR  B-l  TO  Zl*G:  IF  R-Z«B»  THEN  LET  Y-l:  NEXT  B:  IF  Y-l  TMEN  LET  Y-0:  GOT 
O  7160 

7170  IF  B<R)-0  TMEN  LET  B«R>-I:  LET  CO(A)-R  ELSE  GOTO  7160 
7100  ICXT  A 

7190  FOR  B-ZlaG  TO  52:  LET  Z«B»-CO«B>:  NEXT  B:  LET  Zl-52:  RETURN 

9000  REM  COMPUTER  TREKKER  KORT  MER 

0010  LET  L-l:  LET  K»2l  LET  M-0 

8012  LET  G-0 

8015  GOTO  5110 

8020  REM  FRA  BUNKEN 

0025  CSR  22,0:  PRINT 

9026  IF  A>10  THEN  LET  A-10 

0027  IF  A-l  TICN  LET  A-ll:  LET  CES-CES*  10 

8028  IF  M*A>21  AND  CES  1  THEN  LET  M-M-10:  LET  CES-CES-10 

0029  IF  M>21  AND  CES  '1  TMEN  GOTO  8028 

8030  LET  M-M.A 

0035  IF  M<22  AND  6-5  THEN  LET  M-21:  CSR  22, 10:  PRINT  “FEM  KORT":  GOSUB  10000:  I 
F  U-l  AND  D-l-C  TMEN  GOTO  5000  ELSE  IF  M<22  AND  G-5  THEN  LET  L-12:  LET  K-2:  G 
OTO  5065 

8040  CSR  22,0:  PRINT  "JE6  HAR";M:  IF  M>0  THEN  LET  K-K*6 

8<>50  IF  M<M1  THEN  GOTO  5110  ELSE  GOSUB  10000:  IF  U-l  AND  D-l-C  THEN  GOTO  1100 
O  ELSE  LET  L-12:  LET  K-2:  GOTO  5065 
9000  CSR  O, 10 

9010  PRINT  -Sats'* •  Dar  ar";P;-  i  pul  jan";:  INPUT  I 
9020  LET  I-ABS(I) 

9040  RETURN 

10000  LET  Ml-F(D) 

10001  IF  M=0  TICN  RETURN 

10002  IF  M/-M1  AND  M<22  THEN  LET  P=P*I:  LET  S«D)=S(D)-I:  RETURN 

10003  IF  Ml/21  THEN  LET  P-Pal:  LET  S(D)-S<D)-I:  RETURN 

10004  IF  M>21  AND  Ml<22  THEN  LET  P-P-I:  LET  S<D)-S«D)*I:  IF  P-0  THEN  GOTO  1003 
O  ELSE  RETURN 

10020  RETURN 

10030  LET  P-100:  LET  MTX-MTX-100:  RETURN 
11000  LET  MTX=MTX*P:  PAUSE  10000:  CLS 
11005  FOR  A-l  TO  C 
11010  PRINT  AS(A);“  har  ";S»A) 

11020  NEXT  A 

11030  PRINT  "Jag  har“;MTX 
11040  GOTO  5000 
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Mino  IDGO 


LOGO  programmer  er  blevet 
det  helt  store  hit.  så  her  bringer 
vi  en  udgave  til  Amstrad.  Vo¬ 
res  program  har  danske  fejl 
meldinger.  Når  du  har  indta¬ 
stet  programmet,  så  skal  du 
bare  skrive  RUN,  og  det  er  pa¬ 
rat. 

Her  er  listen  over  instruktioner- 
ne.Bemærk,  at  X  betyder  at 
ordren  kan  bruges  i  program¬ 
mer.  at  O  betyder  at  ordren 
kun  kan  anvendes  uden  for 
programmer,  og  at  OX  bety¬ 
der  at  en  ordre  både  kan  an¬ 
vendes  i  og  uden  for  et  pro¬ 
gram.  SPACE  bruges  som  stop 
knap. 

O  Videre.  Programmer  videre 
i  et  program. 

O  Husk .  Lave  et  nyt  program 
O  List.  Lister  programmet. 

X  Frem(tal).  Flytter  skildpad¬ 
den  frem. 

O  Ny.  Sletter  programmet. 

O  Run.  Kører  programmet. 

O  Help.  Giver  liste  over  ordre. 
OX  Rens.  Sletter  skærmen. 


X  TILB(tal).  Flytter  skildpad¬ 
den. 

X  Nord.  Skildpadden  vender 
sig  mod  nord. 

X  Vest.  Skildpadden  sætter 
kursen  mod  vest. 

X.  VDRE(tal).  Skildpadden 
drejer  til  venstre. 

X  HDRE(tal).  Skildpadden  drej¬ 
er  til  højre. 

OX  Hjem.  Skildpadden  går  til 
startpos.  og  tegner  hjem. 

X  Star.  Skildpadden  går  til 
startpos.  og  tegner  ikke  hjem. 
X  Lytt .  Skildpadden  tegner  ik¬ 
ke. 

X  Tegn.  Skildpadden  tegner. 
X  GOTO(tal).  Går  ti  en  linie,  be¬ 
stemt  af  tal. 

X  Hent .  Henter  et  program  på 
bånd. 

O  pos.  Giver  skildpaddens  X.Y 
ps. 

O.  Fri.  Resterende  hukommel¬ 
se. 

O  Gem.  Gemmer  et  program 
på  bånd. 

X  Stop.  Stopper  programmet . 


X  GENT(tal).  Start  på  løkke. 

X  HERT.  Slut  på  løkke. 

X  Vent(tal).  Pause  funktion. 

O  Ret.  Retter  en  linie. 

X  Slut.  Slutter  programmet. 

X  Cirk.  Laver  en  cirkel.  Radius 
er  bestemt  af  tal. 

X  XPOS(tal),  Sætter  skildpad¬ 
den  i  X  pos. 

X  YPOS(tal).  Sætter  skildpad- 
deni  Y  pos. 

O  Slet.  Sletter  en  linie  i  pro¬ 
grammet. 

O  Ind.  Indsætter  en  linie  i 
programmet. 

X  Frem(g).  Flytter  skildpadden 
frme.  bestemt  af  GENT(tal). 
XTILB(g).  Flytter  skildpadden 
tilbage,  bestemt  af  GENT(tal). 
X  HDRE(g).  Drejer  skildpadden 
til  højre,  bestemt  af  GENT(tal). 
X  VDRE(g).  Drejer  skildpad¬ 
den  til  venstre,  bestemt  af 
GENT(tal). 

X  STEP(tal).  Bestemmer  hvor 
stort  et  skridt  GENT(tal). 

Skal  tage.  □ 

Thomas  Lykkeberg 


AMSTRAD  LOGO,  no.  547. 

10  REM  CDPERIGHT  BY  THOMAS  LYKKEBERG 
20  REM 

30  REM  AMLOGO 

40  REM 

50  REM  SNOSQFT 

60  f  =  1 : Pk=l 
70  DEG 

SO  INK  O,  i:  BORDER  UINK  i,  24:  MODE  1 
90  PLOT  320,200. 0:XX=XP0S:YY=YP0S:ss=0 
100  CLS 

110  I  i n=l : DIM  a*C151) 

120  CLS : PRINT"  AMLOGO  *  BY  THOMAS  L 

YKKEBERD  " : PRINT : PRINT"  ' " 5 

FRE ("")?"  BYTES  FREE  ": PRINT : GOTO  240 
.130  IF  I  i  ri  =  i 5 1  THEN  I  i=l :  l  i  n=  I  i  n-1 :  PRINT 
"  Hukomelse  f y l dt"  ;CHR*(7) :GOTO  240 
140  IF  l i =1  THEN  PRINT  "  Hukomelse  fyldt 
" ;CHR*<7> :GOTO  240 
150  PRINT  lin; 

160  LINE  INPUT  a*C  I  ir.) 

170  I  in® I in  +  1 

180  IF  a*  (  I  i  n-1) ="  "  THEN  l  i  r.=  I  i  n-2:  GOTO 
240 

190  b*=LOWER*(LEFT*(a*.  4) ) 

200  c*=MID*(a*, 6,  3) 

210  a=VAL(c$) 

220  b=b+a 
230  GOTO  130 

240  IF  pk=1  THEN  PRINT"  Ready":LINE  INPU 
T"  "5  PP* :  aa*=LOWER$ C  PP*)  ELSE  LINE  INPU 
T"  ";  PP*:aa*=LOWER$(PP*) 

250  IF  aa*="  I  ist"  THEN  GOSUB  430 .'GOTO  42 

O 

260  IF  aa*=" run"  THEN  GOSUB  1610:DEG*.PL0 
T  320,200: xx=XPOS : yy=YPOS: c=0 : g=0: f =1 : GO 
SUB  450: GOTO  420 

270  IF  aa*="husk"  THEN  lin=l:GOTO  130 
280  IF  aa*=" ret"  THEN  GOSUB  1240:G0T0  42 
O 

230  IF  ait»" pos"  THEN  PRINT"  X-";XPOS;"Y 
!Y POS: GOTO  420 

300  IF  aa*="vidre“  THEN  I  i n= I  i n+ 1 : GOTO  1 
30 

310  IF  aa*=" rens"  THEN  CLS: GOTO  420 

320  IF  aa*-"«©«"  THEN  GOSUB  1270:G0T0  42 

O 

330  IF  aa*="hent"  THEN  GOSUB  1350: GOTO  4 

20 

340  IF  aa*=" he  I  p"  THEN  GOSUB  330: GOTO  42 

O 

350  IF  aa*=" fri"  THEN  PRINT  FRE GOTO 
420 

360  IF  aa*=" i nd"  THEN  GOSUB  1550:G0T0  42 
O 

370  IF  aa*="s l et "  THEN  GOSUB  1500:G0T0  4 

20 

320  IF  aa*="ny "  THEN  CLEAR : DI M  a*(151):G 
OTO  420 

330  IF  aa*=“hj  em"  THEN  DRAW  320, 200: GOTO 
420 

400  IF  THEN  pk*0:Q0T0  240 

410  PRINT" 'FeJ I " ;CHR*(7) 

420  pk= 1 : GOTO  240 

4  30'  IF  a*  ( 1 )  O  "  "  THEN  FOR  11  =  1  TO  lin'.IF 
ImKEY*  O  CHR*  C  32)  THEN  PRINT  li;UPPER*Ca 
*<  H  >  >  M4EXT  ELSE  GOTO  240 
440  RETURN 
450  FOR  M=1  TO  lin 
460  b*— LOMER* ( LEFT$  ( a*  ( I  I ),4) ) 

470  c*=MID* ( a* ( i l ) , 6,  3) 

480  a=VAL(c*) 


430  IF  MID*(a*C I  I ) , 5, 2)  =  " (9 "  AND  b*="fre 
m"  THEN  c=kk.:  GOTO  770 

500  IF  MID$(a$( I  l),5>2)="(g"  AND  b*="t i  1 
b"  THEN  c=— kk : GOTO  770 

510  IF  MID*Ca*C  I  l),5, 2>  =  "(g"  AND  b*="hdr 

e"  THEN  g=g+kk : GOTO  770 

520  IF  MID*(a*( I  I >, 5, 2)  =  “ (g"  AND  b*="vdr 

©"  THEN  g=g-kk :GOTO  770 

530  IF  b*=" vdre"  THEN  g=g-a: c=0 : GOTO  770 

540  IF  b*="step"  THEN  st=a:IF  st=0  THEN 

PRINT"  UIOVM9  step  i  "  ;  II  ;  CHR*  (7)  :  GOTO  2 

40  ELSE  GOTO  770 


550 

IF 

b*=" hd  re" 

THEN 

g=g+a: c=0:G0T0  770 

560 

IF 

b*="nord" 

THEN 

g=0 : c=0: GOTO  770 

570 

IF 

b*=" xpos" 

THEN 

xx=a : GOTO  770 

580 

IF 

b*=" ypos" 

THEN 

yy=a: GOTO  770 

590 

IF 

b*=" vent" 

THEN 

FOR  ss=l  TO  a*10:N 

EXT: 

GOTO  770 

600 

IF 

b*="ci rk" 

THEN 

ww=a: GOSUB  1490: GO 

TO  770 

610 

IF 

b*="vest" 

THEN 

g=270: c=0:G0T0  770 

620 

IF 

b*="ti  l b" 

THEN 

c=a: g=g+ ISO: GOTO  7 

70 

630 

IF 

b*="gent" 

THEN 

i  i =VAL  C  MI D* ( a* ( 1  1 ) 

7  6»  3 ) )  • 

i  r= 1  1 : GOTO 

770 

640 

IF 

b*=" hert" 

THEN 

Pl=l l : 1 I=p: kk=kk+l 

: GOSUB 

1470: GOTO 

770 

650 

0 

660 

IF 

b*=" 1  i st" 

THEN 

aa*=" 1  i st" :GOTO  25 

IF 

b*="f rem" 

THEN 

c=a : GOTO  770 

670 

IF 

b*="StOP" 

THEN 

PRINT  "  Stop  1  lin 

e" ;  l 

1  :  RETURN 

630 

IF 

b*= "S  1  Ut" 

THEN 

RETURN 

690 

IF 

b$=" 1 y  ft" 

THEN 

f =0 : GOTO  770 

700 

IF 

b*="tegn" 

THEN 

f=l  :GOTO  770 

710 

IF 

b*="hj  em" 

THEN 

DRAW  320, 200: c=0 : G 

OTO 

770 

720 

IF 

b*="star" 

THEN 

PLOT  320, 200: GOTO 

770 

730 

IF 

b*="rens" 

THEN 

CLS: GOTO  770 

740 

IF 

b*= "goto" 

THEN 

GOSUB  1590: l l =a : GO 

TO  460 

750 

IF 

b*=""  THEN  770 

760 

PRINT"  Fej  1 

i  1  i ne" ;  1  1  i CHR* (7) : GOTO 

240 

770  PLOT  xx,  yy 
780  DEG 

790  DRAW  xx+c*SIN<9), yy+c*COS(g), f :XX=XP 
OS:YY=YPOS 

300  IF  INKEY*=CHR*(32)  THEN  PRINT  "  Stop 
i  I  i ne" ; I  I  : i  i =0 : kk=0 : p=0 : p1=0 : GOTO  820 
SIO  NEXT 
S 20  RETURN 
S 30  CLS 

S40  PRINT" VIDRE" 

S 50  PR I  NT "HUSK" 

360  PRINT"LIST” 

S70  PR I  NT" FREM ( XX X ) " 

330  PR I  NT "NY" 

390  PRINT" RUN" 

900  PRINT"HELP" 

910  PRINT" RENS" 

920  PR I  NT “ T I LB (XXX) " 

930  PR I  NT "NORD" 

940  PR  I NT "VEST" 

950  PRINT" VDRE (XXX) " 

r  /  A  nnrkir  m  mnr  /  UV  V  \  ■■ 

_/UV  I  IM  I«  I  lli/l\L«.A4A/ 

970  PR I NT "HJEM" 

330  PRI NT" STAR" 

990  PRINT"LYFT" 

1000  PR I  NT "TEGN" 

1010  PRINT"GOTO(XX) 


1020  PR I  NT "HENT" 

1030  PR I  NT "GEM" 

1040  PRINT "FRI" 

1050  PR I  NT "POS" 

1060  PRINT"STOP" 

1070  PR  I NT "GENT (XXX) 


1060  PRINT"STOP" 
1070  PR I NT "GENT C 
1080  PRINT " HERT" 
1090  LOCATE  16,  1 
1100  LOCATE  16,2 
1110  LOCATE  16,  3 
1120  LOCATE  16,4 
1130  LOCATE  16,5 
1140  LOCATE  16,6 
1150  LOCATE  16,7 
1160  LOCATE  16,3 
1170  LOCATE  16,9 
1180  LOCATE  16, 1 
1 190  LOCATE  16,  1 
1200  LOCATE  16, 1 
1210  LOCATE  16, 1 
1220  LOCATE  20,2 


16,  1 : PRINT“VENT (XXX)  " 

16,  2: PRINT" RET" 

16,  3 : PRINT"SLUT" 

16,  4:PRINT"CIRK(XXX)" 

16, 5: P R I  NT " X  POS (XXX)" 

16,  6: PR I  NT" Y POS (XXX)" 

16,  7 ! PRINT"SLET" 

16,  8: PRINT" IND" 

16, 9:PRINT"FREM(g) " 

16,  10 : PRI NT" TI LB  C  g  > " 

16,  11 : PRI NT" HDRE  C  9 ) " 

16, 12: PRINT"VDRE(g) " 

16,  13:PRINT"STEPCXXX) " 

20,  24: PRINT  "(SPACE)" 
YiOCHR«C32)  THEN  1230  ELSE 


1230  IF  INKEY* O CHRi (32)  THEN  1230  ELSE 
CLS: RETURN 

1240  LINE  INPUT"  Linie  nr  der  skal  rette 
s  :  "‘nr*: nr=VAL  tn  ri) : IF  nr)  l in  THEN  P 
RINT"  Line  findes  ikke  i " ? I  I ; CHRi <7) : GOT 
O  240 

1250  LINE  INPUT"  Hvad  skal  der  staa  :  "i 
at(nr) 

1260  RETURN 

1270  LINE  INPUT"  Hvad  skal  filen  hedde  : 
" ;  n  i 

1280  OPENOUT  n* 

1290  FOR  a= 1  TO  150 
1300  PRINT  #9, at  ( a) : NEXT 
1310  CLOSEOUT 
1320  PEN  1 

1330  PRINT"  Filen  er  gemt." 

1340  RETURN 

1350  LINE  INPUT"  Hvad  hedder  filen  :  "*,n 
i 

1360  b=l 

1370  OPENIN  ni 

1380  FOR  b=l  TO  150 


filen 


& 


1390  INPUT  4*9,aitb> 

1400  NEXT 
1410  CLOSEIN 
1420  PEN  1 

1430  FOR  b=l  TO  50 : IF  a$(b)=" "  THEN  I  i n= 
b-1 : GOTO  1450 
1440  NEXT 

1450  PR  I  NT  '  “  Filen  er  hentet." 

1460  RETURS) 

1470  kk=kk+st:IF  kk)=ii  THEN  ll=pl+l:ii- 
0:kk=0: p!=0: p=0: st=l : RETURN 
1480  RETURN 

1490  PLOT  xx, yy+a, 0:F0R  k l =0  TO  360: IF  I 

NKEYi  O  CHRi (32)  THEN  DRAW  xx+a*SINCk I ) , y 

y+a+COS( k I ) , f : NEXT : RETURN  ELSE  PRINT  "  S 

top  i  i  i n i e" 5 l i n : GOTO  240 

1500  LINE  INPUT"  Linie  der  skal  slettes 

:  ■ ; nri s nr=VAL<nr$) : IF  nr) lin  THEN  PRINT 

"  Linie  findes  i kke. " SCHRi (7) : GOTO  240 

1510  FOR  tt=n r  TO  lin-1 

1520  ai(tt)=ai(tt+l> :NEXT 

1530  i  i n= i  i n— 1 

1540  RETURN 

1550  LINE  INPUT  "  Hvor  skal  den  ind  efte 
r  :  "  !nr$:  nr=VAL<nr* )  !nr*nr+HIF  nr)lin+ 
1  THEN  PRINT"  Linie  findes  i  kke. " !CHRi(7 
>  :GOTO  240 

1560  FOR  imn=  I  i  n+1  TO  nr  +  1  STEP  -1 

1570  at  ( mm)  =ai  (mm-1 ) :  NEXT 

1580  LINE  INPUT"  Hvad  skal  der  staa  :  "i 

ni:  ai  (n'r )  =ni :  I  in=  I  i  n  +  1 :  RETURN 

1590  IF  a>  I  i n  THEN  PRINT"  Ukendt  linie  n 

ummer  i " ; I  I ;CHR$ C 7) : GOTO  240 

1600  IF  INKEYt  O  CHR$ (32)  THEN  RETURN  ELS 

E  PRINT"  Stop  i " 5  I  I : GOTO  240 

1610  FOR  we=l  TO  lin 

1620  IF  LEFT$(a*Cwe), 4)="hert"  THEN  he=h 
e+1 

1630  IF  LEFTi C  at  C  we) , 4) ="gent "  THEN  9e=g 
e+1 

1640  NEXT 


LEFTi C  at  C  we) , 4)  =  "gent " 


1650  If?  ge=he  THEN  ge=0 :  he=0 :  RETURN 
1660  IF  -ge> he  THEN  PRINT"  Manglende 
t’"*CHR$<7> :ge=0:he=0:G0T0  240 
1670  IF  9e  <he  THEN  PRINT"  Unyttig(e) 
rt’ " ;CHRi(7) : ge=0: he=0 : GOTO  240 
1680  RETURN 


2 


081 


38 


Termo- 

check 


Med  dette  program,  kan  du 
udregne  alverdens  torskellige 
temperatur  udmålinger.  Du 
kan  t.eks.  omregne  tra  Celci¬ 
us  til  Fahrenheit,  Kelvin,  Re¬ 
aumur,  og  Rankine.  Eller  om¬ 
vendt  om  du  synes.  Et  smart 
lille  program  tor  den  lille  me- 
teolog. 

Erik  Sørensen 


å 


COMMO 

DORE 

64 


Ja 

Ot 


'Ji 


fo 

1* 


1000  PRINT"(CLR,CRSR  NED2, 

CRSR  HØJRE6, RVS  ON, 
SPRCE2)TEMPERRTURER  (CRSR  NED2>" 

■  PRINT" (CRSR  NED, SPACE) 1.  CELSIUS" 
: PRINT" (CRSR  NED, SPACE) 2.  FRHRENH 
EIT" 

1010  CLR • PR 1NT " ( CRSR  NED, 

SPACE) 3.  KELVIN” 'PRINT"(CRSR  NED, 
SPRCE)4.  RERUMUR": PRINT" (CRSR  NED, 
SPRCE>5.  RRNKINE" 

1020  PRINT" (CRSR  NED2, 

SPRCE)HVILKEL  STØRELSE  ØNSKER  DU 
RT  OMREGNE  (CRSR  NED, 

SPRCE2)FRfl  ( 1/2/3/4/5) " 

1030  GET  BUF  B<1  OR  B>5  THEN  GOTO  1 
030 

1040  ON  B  GOTO  1200,1300,1400,1500, 
1600 

1200  PRINT” (CLR, CRSR  NED3, 

SPACE > OMREGNER  FRR  CELSIUS  " 

1  INPUT"  (CRSR  NED3,  SPRCE)  INTRST  GR 
RDETRL";RR 

1210  RB*flfl#9/5+32:RC"flfl+273. 13 
.  :RD*RR*4/3:RE-Rfl*9/3+491.67 

1220  PRINT" (CRSR  NED3 , SPRCE ) " ; flfl ; 

" CELS I US-ORRDER  -" 

1230  PRINT"  (CRSR  NED, SPRCE) ",RB; 
"FRHRENHEIT-ORRDER 
:PRINT"(CRSR  NED, SPRCE) ";RC) 
“KELVIN-ORRDER  ■" 

1240  PRINT“(CRSR  NED,SPRCE)"iRD; 
■RERUMUR-ORRDER  PRINT" (CRSR  NE 

d,sprce)";re; "rrnkine-grrder- 

1230  PRINT" (CRSR  NED2, 

SPRCE)ØNSKER  DU  RT  VIDE  MERE  OM  T 
EMPERRTLIRER  ■ 

1260  PRINT"  (J/N)" 

1263  GET  RCIF  R*»"*THEN  1265 
1270  IF  R*-"J"THEN  1000 
1280  IF  fl*0“N"THEN  1263 
1290  END 

1300  PR I NT "(CLR, CRSR  NED3, 

SPRCE) OMREGN 1 NO  FRR  FAHRENHEIT  " 

: INPUT" (CRSR  NED3, SPRCE) INTRST  GR 
RDETRL" ;  RF 

1310  PRINT" (CRSR  NED3, SPRCE) ";RF; 

"FRHRENHEIT-ORRDER  ■" 

1320  Rfl=(RF-32>*3/9 

1330  PRINT" (CRSR  NED, SPRCE )";fifl; 

" CELS I US-ORRDER 
1340  RC-Rfl+273.15:flD=RR*4/5 
:RE-flfl*9/5+491.67 
1330  PRINT"(CRSR  NED,SPRCE>"JRC; 

"KELVIN-GRADER  ■“ 

1360  PRINT"(CRSR  NED,SPRCE)";RDi 
"RERUMUR-ORRDER  PRINT" (CRSR  NE 

d,sprce)";re; "rrnkine-grrder" 

1370  GOTO  1250 
1400  PR I NT " ( CLR , CRSR  NED3- 
SPRCE ) OMREGNER  FRR  KELVIN  “ 

: I NPUT "(CRSR  NED3, SPRCE) INTRST  GR 
RDETRL";  RO 

1410  PRINT" (CRSR  NED3, SPRCE) “;RG; 

"KELVIN-ORRDER  »" 

1420  Rfl-RO-273. 13 

1430  PRINT" (CRSR  NED, SPACE) ";RR; 

"CELS I US-ORRDER 
1 440  RB-flfl*9/3*32 :  RD»RR*4/5 
:fl£-flfl*9/5+491.67 
1450  PRINT" (CRSR  NED, SPRCE) ";RB; 

“FRHRENHEIT-GRRDER  ■" 

1460  PRINT“(CRSR  NED, SPRCE) ")RD; 
"RERUMUR-ORRDER  «■ : PRINT" (CRSR  NE 
D , SPRCE >"; RE ;" RANK I NE-GRRDER “ 

1470  OOTO  1230 

1300  PRINT" (CLR, CRSR  NED3, 

SPRCE  >  OMREGNER  FRR  RERUMUR  " 

:  INPUT"  (CRSR  NED3, SPRCE)  INTRST  GR 
RDETRL" ; RH 

1310  PRINT"(CRSR  NED3- SPRCE) ";RH; 

"RERUMUR-ORRDER  -" 

1320  Rfl-flH*5/4 

1330  PRINT"(CRSR  NED, SPRCE) ";RR; 

"CELSIUS-GRRDER  ■“ 

1340  RB=flfl*9/S+32:flC=flfi+273.15 
:RE-flfl*9/3+491.67 
1350  PRINT" (CRSR  NED, SPRCE) ";RB; 
"FRHRENHEIT-GRRDER  »" 
i  PRINT”  (CRSR  NED,  SPRCE)  ",'RC; 
"KELVIN-ORRDER  -" 

1360  PRINT" (CRSR  NED, SPRCE)" I RE) 
“RRNKINE-GRRDER" 

1570  GOTO  1230 

1600  PRINT" (CLR, CRSR  NED3, 

SPRCE ) OMREGNER  FRR  RRNKINE  " 

: INPUT" (CRSR  NED3, SPRCE) INTRST  GR 
RDETRL", 'RI 

1610  PRINT" (CRSR  NED3,SPRCE)"JRI; 

"RRNKINE-GRRDER 
1620  RR-(RI-491.67>*5/9 
1630  PRINT" (CRSR  NED, SPRCE) ";RRJ 
"CELSIUS-GRRDER  -" 

1640  RB*Rfl*9/5+32:RC“Rfl+273. 13 
:RIMVI*4/3 

1630  PRINT"  (CRSR  NED,  SPRCE)  ";RB1 
"FRHRENHEIT-GRRDER  -■ 

IPRINT"(CRSR  NED, SPRCE) "IRC; 
"KELVIN-ORRDER  -■ 

1660  PRINT" (CRSR  NED, SPRCE) ";RD i 
"RERUMUR-ORRDER  ■" 

1670  OOTO  1250 
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Space  mission 


0  Ti *="000880" 

1  M-ø 

2  PR I NT "U" 

3  P0KE36878, 15 

4  P0KE36867 , 32 

5  B-2 

6  P0KE36S79,24 

7  P0KE36865, 5ø 

1 ø  FOR I xøT079 : REfiDfl : POKE I +7552 , fl : NEXT : P0KE36869 , 255 
2ø  DflTflø , 126,1 02 , 1 02 , 1 02 , 1 02 , 1 26 , ø , ø , 56 , 24 , 24 ,24,24,24,0 
3ø  DflTflø, 126, 102, 14, 120,96, 126, 0,0, 126, 102, 14, 14, 102, 126,0 
4ø  DflTflø, 96, 108, 108, 126, 12, 12,ø,ø, 126,96, 126,6, 102, 126,0 
5ø  DflTflø, 126,96, 126, 102, 102, 126, ø,ø, 126,6, 12,24,24,24,0 
6ø  DflTflø, 126, lø2,6ø, 102, 102, 126, ø,ø, 126, 102, 102, 126,6, 126, ø 
7ø  FOR  I  =ØTQ55  =  REflDfl  =  POKE  1+7168, fl  •'  NEXT :  P0KE36869 , 255 


■  Du  befinder  dig  i  den  fjerde 
mælevej,  syv  lysår  fra  jorden, 
hvor  den  sataniske  styrke  fra 
den  sorte  galaxe  har  anbragt 
bomber  i  alle  rumadministra¬ 
tionens  12  satelitter. 

Din  opgave  er  derfor  at  ind¬ 
samle  satelitterne  inden  25 
sekunder,  samtidig  med  at 
den  sataniske  styrke  besky¬ 
der  dig  fra  alle  vinkler. 
Opgaven  er  yderst  vanskelig, 
men  ved  klar  tankegang  og 
præcision  kan  missionen  lyk¬ 
kes.  Du  styrer  med  knapper¬ 
ne  K,  M.  Z  og  X  og  kan  lige 
proppes  ned  i  en  stadard 
VIC-20.  Space  mission  kan  ik¬ 
ke  anbefales  til  folk  med  sva¬ 
ge  nerver.  □ 


Finn  Kjær 


8ø  DRTRø, 119,68, 116,20,20, 119, ø, 129, 126,255,255,255,  126,  126,255,0, 126,0, 126,0,  1 
6,ø, 126 

9ø  DflTflø , 6ø ,126, 6ø , 24 , 6ø , 66 , 1 29 , ø , ø , ø , ø , ø , ø , ø , 255 
løø  DRTR2 1 5 , 255 , 207 , 254 , 223 ,247,1 27 ,254 
1 05  URTfl 1 6 , 32 , 64 , 255 , 255 ,64,32,16 

1 1 ø  FOR I =ØT07 : RERDR : POKE I +7424  J R : NEXT : P0KE36869 , 255 
12ø  DRTRø , ø, ø, ø,ø,ø, ø, ø 
125  R=7725 
128  GøSUB  løøøø 
1 3ø  I FT I #>" øøøø25 " THEN20000 
135  PR  I  NT 11  aa  n$C 

14ø  I FPEEK  < 1 97  >  =33THENR=fi- 1 : B= 1 =  GOTO 1 75 
15ø  I FPEEK < 197)=26THENR=R+1 =B=-1  GOTO 175 
1 6ø  I FPEEK  <197) =36THENfl=R+22  :  E--22 : GOTO 1 75 
1 7ø  I FPEEK < 1 97  >  =447  HEHR=fl-22 : B=22 : GOTO 1 75 
1 75  I FPEEK  < R  >  =5THENR=R+B : B=-33ø- 

177  I FPEEK < fi  >  =3THENSC=SC+ 1 ø  =  M=M+1 : P0KE36876, 2øø : P0KE36876, ø 
1 8ø  POKER , 1 : POKER+30720 . ø : I FPEEK  <  fl+B ) O5THENP0KER+B , 32 
1 85  I FM> 1 1 THEHM=ø : G0T03øøøø 
1 9ø  X= I NT  <  RNB < 1 ) ft  1 øø )  + 1 
2øø  PR I HT"«", TI* 

210  I FX= 1 THENG=7875 : G0T0230 
215  I FX=2THENG=794 1 : GOT0230 
22ø  GOTO 130 

230  POKEG+ 1,32: POKEG , 6 : POKEG+30720 , 0 
24ø  G=G- 1 

25ø  I FPEEK < G) = 1 THEN4øøøø 
260  I FPEEK < G  >  =5THENP0KEG+ 1 , 32 : GOTO 1 30 
27ø  G0T0230 
9999  GOTO  130 

løøøø  PR I NT " EEEEEEEEEEEEEEEEEEEEEEE  E"; 

løølø  PR I NT "E  EEEEE  EEEEE  EEEEE  EE  EEEEEE  EE  EEE 
10020  PR I NT "E  E  E  E  DE  EE  EE  EE  EE  EE  EE 

10030  PR I NT "E  EEE  EEE  EEE  EEE  EE  E  E  EE  EE  EE  EE 

10040  PR I NT "E  EEEEEEEEEEEEEEEEEE  EE  E  E  E  E  E"; 

10050  PR I NT "E  EEE  EEEEEEEEEEEEEEEEEEEEEEEE" ; 
løø55  2=ø 

10060  V= I HT  <  RNB  < 1 >  *287  >  + 1 

10070  V=V+7727 

1 007 1  I FV>7856RNDV<7877THEN 1 øø6ø 

1 0072  I FV>7922RNDV<7943THEH 1 0060 

1  øø8ø  I  FPEEK  <  V  > 032THEN 1  øø6ø 
1 øø9ø  POKE V , 3 : POKEV+30720 , ø : Z=2+ 1 
1 ø 1 øø  I FZ> 1 1 THENZ=ø : GOTO 1 1 øøø 
løllø  GOTO 10060 
lløøø  RETURN 
2øøøø  P0KE36877 , 2øø 

20005  P0KE36864 ,14: P0KE36865 , 78 : P0KE36864 , 1 ø  =  P0KE36865 , 4ø : DE=DE+ 1 
2øø 1 ø  IFHE> 1 øø THENP0KE36864 ,13: P0KE36865 , 50 = P0KE36877 , ø : DE=ø : G0T020030 
2øø2ø  GOT 02øøøø 
2øø3ø  I FSOH I THENH I  =SC 

2øø35  P0KE36869 , 240 :  PR  I  NT  "mi  DEN  GIK  ,  OG  BOMBEN  EXPLOBEREBE"  :  Q»ø :  RE8T0RE 
20036  PR I NT " WDU  FIK  "SOM"  SC=ø 
2øø37  PR I NT " MMSH  I GHS" H I " MW" 

20040  PRINT  "  PWV 1 L  DU  PRØVE  I  GEN  <  .J/N  )  "  :  G0T04øø  1  ø 
30000  P0KE36869 , 240 : PR I NT " D  DU  FIK  FRT  I  RLLE  SRTEL I  TTERNE  MMBONUS 

2  mm" 

3øølø  PRINT" DU  GROR  HU  VIDERE  TIL"G+2"PLRNET" :Q=Q+1 :8C=SC+2øø 
30020  FOR I = 1 T02øøø : NEXT : RESTORE : GOTOø 
4øøøø  I  FSOH  I  THENH  I  =SC 

4øøø5  P0KE36869 , 240 : PR I NT " DDU  BLEV  RRMT  !!!  WVIL  DU  PRØVE  IGENCJ/N)" 

4øøø6  PR I NT "WDU  FIK"  SO  MM 
4øøø7  PR I NT "  MMSH  I GHH” H I " WW" 

4øø 1 ø  GETRS : I FR*= " " THEN400 1 ø 

40020  I Ffi$= " N " THENEHD 

4øø3ø  I Ffi* = " J " THENRESTORE : Q=ø : SC=ø : GOTOø 

40040  GOT 04øø 1 ø 


mmm 


Statusrapport 


■  Er  du  ofte  desorienteret  når  Med  dette  program  får  du  alt 
du  sidder  ved  computeren?  du  behøver  at  vide.  skrevet 
Kan  du  ikke  alle  peeks  og  po-  ud  på  skærmen .  uden  peek 
kes?  Glemmer  du  ofte  de  tor-  og  poke.  Blot  ved  SYS40000. 
skellige  adresser?  Du  tdr  bl.a.;  BASIC  start.  slut. 

Sd  er  programmet  for  dig  lige  variabler  og  device  nr.  □ 
her!  Thomas  Ravn 

50  REM  ***********************  _ 

60  ‘  »SS?  f 

70  FOR  T =40000  TO  40567: READ  A  1*1 

s  POKE  T,A 

80  CK-CK+A :  ÆXT  T  ■  r.T  3 

90  : 

100  IF  CK< >52799  THEN  PRINT'DATA  FEJ 
L I " r  STOP 
1  10  : 

120  PRINT'DATA  OK ! ■ 

130  PR  I NT  s  PR  I NT 

140  PR INT"SYS< 40000)  FOR  AT  FAA  EN" 

150  PR  I NT "STATUS  RAPPORT." 

160  PR INT"<  JSR  *9C40  I  MASK  I N-KODE !> " 

170  END 
180  : 

200  DATA  76,237,157,234,234,234,234, 

234.234.234. 147.14.8.13.32.32.32, 

32.32.32 

201  DATA  32,32,32,13,32,32,211,84,65, 
84,85,83,45,210,65,80,80,79,82,84, 
32,33 

202  DATA  13,13,13,13,32,32,194,65,83, 

73.67.45.83.84.65.82.84.32.58.32, 
0,165 

203  DATA  44,166,43,32,205,189,169, 
144,160,156,32,30,171,76,162,156, 

13.32.32 

204  DATA  194,65,83,73,67,45,83,76,85, 
84,32,32,58,32,0,165,175,166,174, 
32,205 

205  DATA  189,169,179,160,156,32,30, 
171,76,200,156, 13,32,32,214,65,82, 

45.83.84 

206  DATA  65,82,84,32,32,32,1,1,1,58, 
32,0,165,46, 166,45,32,205,189, 169, 
217, 160 

207  DATA  156,32,30,171,76,235,156,13, 
32,32, 193,82,82,65,89,45,83,84,65, 

82.84 

208  DATA  32,58,32,0,165,48,166,47,32, 
205,189,169,252,160,156,32,30,171 , 
76,14 

209  DATA  157,13,32,32,193,82,82,65, 
89,45,83,76,85,84,32,32,58,32,0, 

165 ,50 , 166 

210  DATA  49,32,205,189,169,32,160, 

157.32.30.171 .76.50.157.234.13.32, 

32, 194,65 


n 


m 

1 


211  DATA  83,73,67,45,76,73,78,74,69, 
32,58,32,0,165,58,166,57,32,205, 

189.169 

212  DATA  67,160,157,32,30,171,76,85, 
157,13,32,32,196,65,84,65,45,76, 
73,78,74 

213  DATA  69,32,32,58,32,0,165,64,166, 
63,32,205,189,169,102,160, 157,32, 
30,171 

214  DATA  76,120,157,13,32,32,193,65, 

66.78.69.32.70.73.76.69.82.32.58, 
32,0,169 

215  DATA  0,166,152,32,205,189,76,148, 
157,13,32,32,196,69,86,73,67,69, 
32,78,82 

216  DATA  46,32,32,58,32,0,169,130, 
160,157,32,30,171,169,0,166,186, 
32,205, 189 

217  DATA  76,183,157,13,32,32,195,85, 

82.83.79.82.32.70.65.82.86.69.58, 
32,0, 169 

218  DATA  165,160,157,32,30,171,169,0, 
174,134,2,32,205, 189,76,219,157, 

13.32.32 

219  DATA  216,45,210,69,71,73,83,84, 
69,82,32,32,58,32,0,169,201 ,160, 
157,32,30 

220  DATA  171,169,0,174,63,156,32,205, 
189,76,18,158,142,63,156,141,62, 
156, 140 

221  DATA  61,156,169,74,160,156,32,30, 
171,76,127,156,13,32,32,217,45, 
210,69,71 

222  DATA  73,83,84,69,82,32,32,58,32, 
0,169,0,160,158,32,30,171, 174,61 , 

156.169 

223  DATA  0,32,205,189,76,54,158,13, 
32,32,193  ,67,67,85,77,85,76 ,65,84 , 

79.82.32 

224  DATA  58,32,0,169,36,160,158,32, 
30,171, 174,62, 156,169,0,32,205, 
189,76,89 

225  DATA  158,13,32,32,201,78,84,69, 
82,82,85,80,84,32,32,32,58,0,169, 
72, 160, 158 

226  DATA  32,30,171,169,32,32,210,255, 
234,173,21 ,3,174 ,20,3,32,205,189, 
169, 13 

227  DATA  32,210,255,32,210,255,96 
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skræk 


Hø 


Du  er  ham  som  skal  redde 
Gurli,  der  har  højdeskræk. 
Gurli  står  på  en  platform,  men 
der  er  en  elektrisk  mur  imel¬ 
lem  jer.  Heldigvis  kommer  der 
huller  i  muren  og  den  skal  du 
igennem.  Du  styrer  med  pile¬ 
tasterne.  Jesper  Larsen  & 

Michael  Hansen 


130  IF  S  »="/•■  IIH.H  PRINT  RT  y  ,  X 

let  y=y-i.  11  screen*  (y,x 
JO"  "  THEN  OO  TO  200 
13S  print  R7  y  ••*?•• 

14-0  IF  a»="6"  7IIEH  PRINT  RT  y,X 
;  let  y-y+i.  n  screen«  cy,x 

)  <  >  ••  ••  THEN  OG  7  u  kpø 

14-s  print  ri  y, :<;•»»•• 

160  PRINT  RT  q,20;"  " ; RT  q  +  1,2 

ø;  ••  -;ht  q+2.20:"  ";rt  q+3 , 20; 

"  •• ;  rt  q+3,2ø;-  RT  q-i ,2ø;  "D 

LET  q  «q  + 1 

170  IF  q  =10  THEN  PRINT  RT  g-1.2 

S;  "CD";  rt  g  . ag :  -m- :  rt  g+i,2ø.:"ir> 
•• ;  rt  q+2.20; -ITl".  let  q  =  1 

180  IF  X=20  UK  X  21  THEN  IF  SCR 
EEN*  ly.X.'O  -  ••  I  I  ILN  OO  TO  200 

aes  if  y  -7  hhl>  2/  then  oo  to 

400 

isø  00  to  løg 

260  PRINT  FLBSI1  1 RT  4,25; "SUK! 

prini  rt  <j ,  x ;  ••  -;rt  y.x;  duer 
i 

210  FOR  »=0  TO  20.  NEXT  B 
220  FOR  B=0  TO  30 

230  PLOT  OVER  1 : RND«6 +X *0, 167 - l 
y *0) +RNDS8 
240  NEXT  a 

250  PRINT  RT  y . X ;  “  " ;  FOR  b =0  T 
O  21:  PRINT  RT  a,0;  OVER  1;  PRPE 
R  0;  INK  4;  BRIGHT  U  ” 

" .  NEXT  a 

260  FOR  a  =0  TO  350.  NEXT  B 
265  PRPER  7.  BORDER  7:  CLS 
270  PRINT  RT  11,4;  "TRST  EN  TRST 
FOR  NYT  SPIL  I” 

200  IF  INKEV*  <>"••  THEN  OO  TO  20 

0 

290  IF  INKEY  *  ="  "  THEN  OO  TO  290 
295  OO  TO  2 

300  FOR  *= 1  TO  4;  RERD  d* 

310  FOR  t =0  TO  7;  RERD  B 
320  POKE  USH  dJtl.S:  NEXT  t;  NE 
XT  s 

330  DR7R  •••”,0.120,219,255,195, 
255,36 . 102 

340  ORTR  "b",  255 ,129,189,189,18 
9, 129, 129,255 

350  DRTR  ”C” ,0. 60 . 60,60 ,24 ,255, 
109 , 109 

360  ORTR  "d",  109,109, 126, 136, 25 
5,255,36,102 
370  GO  TO  2 

400  BEEP  .5,0:  BEEP  .5,6:  BEEP 
.5,9 

410  PRINT  RT  6,27; "O"; RT  7,27;" 
” ; RT  4,25;  FLRSM  i;  INK  2;  BRIG 
HT  i; "SMRK" 

420  PRINI"  RT  6,a;  "DU  KOB>  hen  ti 
t  ”  ;  RT  7,2;  ”  GU  m  K  £  d  højhed*  -  ;  RT 
0,2;  "s  r.  r  se?,  pst  ud  ";t;"”;RT  s 
,2; -og  redede  hende  ";rt  iø,2;”f 
ra  at  falde  ne-j.";H>  10,2;  "og  ho 
id  saa  op”;R7  19,2;  "»ed  det  r.yss 
er  i  !  ” 

430  PRINT  Ri;"7RGi  EN  TRST  FOR 
HYT  SPIL! ! ! " 

440  IF  INKEY*  O”"  THEN  OO  TO  2 
450  GO  TO  440 


NEXT  B  _ 

65  PRINT  HT  O  .22.-  TI  I  I  I  I  IT)  - 
. . É6  FOR  a=0  TO  O;  PRINT  RT  B, 22 

70  PR  IN  I  RT  6.2U;  INK  2;"*";RT 
7,20;  ••*”;  PRIN7  Hl  4,25;  FLRSH 
1; "HELP" 

90  LET  X  =5 ;  LET  'J=ll:  LET  q  =0 
92  LET  t  =0 
16ø  LET  r* -INKEY E 
161  LET  t=t-fl 
165  PRINT  R7  y.x;  "f?" 

110  IF  BS="0”  1  HEN  PRINT  RT  y,X 
;  ••  ••:  LET  X=X*1:  li  SCREEN*  Cy,X 
>  O"  "  THEN  OO  7  O  200 

115  print  ht  y.x;  •??•• 

120  IF  B*  =  ”3”  7  HEN  PRIN7  RT  y,X 
;  ••  ••;  LET  X=X-1.  1!  SCREEN*  Cy,X 

JO"  -  THEN  GO  7  O  200 

125  print  rt  y.x; "P" 


1  OO  TO  300 

2  PRPER  6.  BORDER  6:  CLS  :  IN 

3  print  ••  ■  ■  ■  ■  Hi  MM 

4  PRINT  "■  ■■  ■■  ■■  ■ 

5  PRINT  ”  MM  ■  ■  ■  ■  ■ 

6  PRINT  "  ■  ■  ■  ■  ■  MB  ■ 

7  PRINT  ••  ■  ■  MM  MM 

6  INK  0 

10  print  "ar  vesper  Larsen  ■• 

12  print  "*  Hi ch ae  i  Hansen  iss 

s- 

20  PRINT  rt  1 . 28 ;  "4t" ;  rt  2.26;" 
W";HT  3,26; "GURLI" 

25  PRINT  RT  0,22; "B";BT  1,21;" 
HUGO"  _ 

28  PRINT  RT  3 , 23;  ; RT  4,22;" 

MUR" 

30  PRINT  ;  PRINT  ;  PRINT  ;  PR I 
NT  :  PRINT  ;  PRINT  :  PRINT  "DU  e 
r  Hugo  so*  sxai  redde  Gurli  der 
har  højhedssKraee  .  Guri 

i  staar  paa  en  piatror*  »en  der 
er  en  eiextrisx  »ur  i»eile»  „-er. 

Held 

igvis  xo »ir  der  hviler  i  »ure 
n  og  de»  sxai  du  igennea." 

32  PRINT  .  PRINT  "DU  STYRER  PR 
H  PILENE! " 

40  IF  INKEY*  O""  THEN  GO  TO  50 

49  GO  TO  40 

50  INK  0:  PRPER  7.  BORDER  6.  C 


OPLYSNING  TIL  COMMODORE  UDUSTNINGERNE  il 

Når  du  tør 

Betyder  døl 

Du  trykker 

(CLP) 

Screen  clear 

SHIFT  CLR/HOME 

(HOME) 

Home  cursor 

CLR/HOME 

(CRSR  NED) 

Cursor  ned 

CRSR  OP/Nf  D 

(CRSR  OP) 

Cursor  op 

SHIFT  CRSR  OP/NED 

(CRSR  HØJRE) 

Cursor  høne 

CRSR  HØJRE/VENSTRE 

(CRSR  VENSTRE) 

Cursor  venstre 

SHIFT  CRSR  HØJRE/VFN 

(DEL) 

Deleto  tilbage 

INST /DEL 

(INST) 

Insert 

SHIFT  INST/DEL 

(RETURN) 

Return 

SHIFT  RETURN 

}  (SPACE) 

Space 

SPACE 

(RVSON) 

Roverse  on 

CTRL  9 

i  (RVSOFF) 

Roverse  otl 

CTRL  0 

(SORT) 

Sori 

CTRL  1 

(HVID) 

Hvid 

CTRL  2 

(RØD) 

Rød 

CTRL  3 

(CYAN) 

Cyan 

CTRL  4 

(LILLA) 

Ulla 

CTRL  5 

(GRØN) 

Grøn 

CTRL  6 

(BLAA) 

Blå 

CTRL  7 

(GUL) 

Gul 

CTRL  8 

(ORANGE) 

Orange 

COMMODORE  1 

(BRUN) 

Brun 

COMMODORE  2 

(L  RØD) 

Lyserød 

COMMODORE  3 

(GRAAI) 

Grå  1 

COMMODORE  4  i 

(GRAA2) 

Grå  2) 

COMMODORE  2 

(L  GRØN) 

Lysegrøn 

COMMODORE  6  i 

J  (L  BLAA) 

Lyseblå 

COMMODORE  7 

(GRAA3) 

Grå  3 

COMMODORE  8  i 

(El) 

Funktionstast  1 

Fl 

(F2) 

Funktionstast  2 

F2 

(F3) 

Funktionstast  3 

F3 

CE4) 

Funktionstast  4 

F4 

(F5) 

Funktionstast  5 

FS 

(F6) 

Funktionstast  6 

F6 

(F7) 

Funktionstast  7 

F7 

(EB) 

Funktionstast  8 

F8 

Marsdrive 


DAL  MOSE 


S  J 


■  Den  amerikanske  rumiarts 
organisation  NASA,  har  op¬ 
daget  så  store  rubin- 
forekomster  på  Mars,  at  det 
pludselig  kan  betale  sig  at 
sende  ekspeditioner  derop. 
Du  er  kommet  med  på  den 
første  tur  og  er  nu  i  gang  med 
rubinindsamlingen . 

Du  har  fået  stillet  en  special- 
konstrueret  Marsscooter  til  rå¬ 
dighed.  Når  du  finder  en  ru¬ 
bin,  skal  du  hoppe  på  den  for 
at  få  den  til  at  gå  løs.  Når  du 
har  samlet  5  rubiner,  er  der 
penge  nok  til  en  ny  rundtur  i 
terrænet.  Det  er  dog  ikke  den 
rene  søndagstur,  for  som  be¬ 
kendt  vælter  meteorerne  ned 
fra  himlen  på  et  sted  som 
Mars.  Dem  skal  du  selvfølge¬ 
lig  undgå. 

Du  styrer  med  piletasterne  og 
skyder  med  '0'.  □ 

Lars  Jensen 


1  REM  LARS  JENSEN 
UNI  1985 

5  LET  NO— CT  PH  LET  Nl-PI/PIl  LET  N2-VAL  "2-1  LET  N3-VAL  -J-l  LET  N4-VAL  "4" 
I  LET  N5-VAL  -5" 

10  BORDER  NO«  POPER  NO«  IW<  N5«  BRIGHT  NU  CLS 

13  LET  a*-CHR*  16+CHR*  NA  ♦  "  DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD ■ 

2©  DXH  k*<N3.  20)«  DIM  k(N3)  «  GO  TO  7060 

30  LET  ba-Nl 

A©  LET  »c "NO i  LET  II-N3 

11©  LET  x-20*  LET  y-13*  LET  t-Nl  f  LET  »-N1  *  LET  »•-" ABCEFGKLMN" 

113  LET  f-NO«  LET  fu-NO 
190  00  SUB  8000 

199  PRINT  OT  x. yls*(N2) lAT  x-Nl,  yl ••<N1 ) 

300  GO  SUB  1000 

600  IF  f-N©  AND  RND)  .  3  THEN  LET  f^l  *  GO  SUB  620© 

700  POKE  32003.  x-Nl«  POKE  32006. y-Nl *  LET  a-USR  31050 
999  GO  TO  200 
1001  LET  xx-x«  LET  yy-y 

101©  LET  i *- I NKEY • «  XF  I*--"  THEN  GO  TO  1100 
102©  IF  l*<>-0"  THEN  GO  TO  110© 

1030  IF  a-Nl  THEN  FOR  a-y-Nl  TO  0  STEP  -NI 

1032  IF  »-N4  THEN  FOR  a-y+Nl  TO  31 

1033  LET  at-ATTR  <x-Nl,x)*  IF  at-68  OR  at-70  OR  at-66  THEN  GO  TO  1100 

1034  PRINT  OVER  NI  I  IfK  7l  POPER  8lOT  x-Nl.  al"*" 

1033  IF  at-67  THEN  BEEP  .01.10«  PRINT  OT  x-Nl.  al"  "«  GO  SUB  9600*  LET  ac-sc+10* 
GO  SUB  9500*  GO  TO  110© 

1037  PRINT  OVER  NI  1  IN(  N5*0T  x-Nl.  al"  i" 

1038  BEEP  .005.10 
10A0  NEXT  a 

1130  IF  1*0-8"  THEN  GO  TO  1200 

1160  LET  at-PTTR  (x.  y*Nl)*ATTR  Cx-Nl.y+Nl>i  IF  at  0 138  THEN  GO  TO  1200 
1170  LET  «-NA*  LET  y-yfNl  i  IF  y-31  THEN  LET  x-Nl 
1200  IF  i *  O “3“  THEN  GO  TO  123© 

1210  LET  at-ATTR  <x. y-Nl > ♦ATTR  (x-Nl.y-Nl)i  IF  at  O  138  THEN  GO  TO  123© 

1220  LET  ««N1 :  LET  y-y-Nl*  IF  y-NO  THEN  LET  y-30 

125©  IF  l*<>"6"  1*0-7"  THEN  LET  x-xMATTR  <x+Nl.y)<>68  AND  ATTR  <x+Nl.r>0 

70) 

1260  IF  I  *-"7"  THEN  LET  x-x-(ATTR  Cx-N2.  y)  O  68  AND  x>Nl) 

1800  LET  at-ATTR  <x.y)*ATTR  (x-Nl,y) 

1810  IF  at -136  THEN  GO  TO  7000 
1820  IF  at  0 135  THEN  GO  TO  183© 

1830  LET  ac-ac+100*  GO  SUB  9500*  LET  f-NO*  BEEP  .1.10*  BEEP  .1.20*  BEEP  .1.10*  L 
ET  fu-fu*Nl  *  IF  fu-N5  THEN  GO  TO  6000 
1990  PRINT  AT  xx.yyl"  ■* AT  xx-Nl.yyf  " 

1992  LET  t-Nl*<ATTR  (x+Nl . y> O 68) 

1998  PRINT  AT  x.  xla»<a*t  >  lAT  x-Nl.yiitd) 

1999  RETURN 
6010  LET  ba-ba+Nl 

6020  FOR  A— 19  TO  XX-N1  STEP  -NI*  PRINT  AT  A.  17*  INK  7l"0"*  BEEP  .005.10*  NEXT  A* 
FOR  A-17  TO  YY  STEP  N1-N2*<YY<17)  *  BEEP  .003.  10*  PRINT  AT  XX-N1.A*"0"»  NEXT  A 


"*  NEXT 


6021  PRINT  AT  XX.YYl"  " 

6023  FOR  A-YY  TO  17  STEP  N1-N2*(YY)  17)  *  BEEP  .003,  10:  PRINT  AT  XX-Nl.Al" 

A 

6030  FOR  A-XX-N1  TO  19:  PRINT  AT  A,  17 1  INK  7l"  "i  BEEP  .003,10:  NEXT  A 
6040  PRINT  AT  19, 17lS*(Nl) 

6030  LET  b*-"HAI JJJ" :  FOR  a-13  TO  -N3  STEP  -NU  FOR  b-Nl  TO  N3 
6060  IF  a+b>  NO  THEN  PRINT  AT  20, a+bl  INK  61 b*(b+N3) I AT  19, a+blb*(b) 

6065  BEEP  .©01,RND*5ø 

6070  NEXT  b:  PRINT  AT  20.  <a+N4  AND  a <28)1 11  "I AT  19,  <a+N4  AND  a<28)l"  ■«  NEXT  a 

6199  GO  TO  100 

6210  LET  a-INT  (RND*30)+N1 

6220  FOR  b-NO  TO  2©:  PRINT  AT  b.  al  INK  N2t"0":  IF  ATTR  <b*Nl.«>-68  THEN  RETURN 
6230  BEEP  .©l.RND*50«  PRINT  AT  b.  al  -  "i  NEXT  bi  RETURN 
7010  LET  I l-l I —NI 

7020  RESTORE  7030i  FOR  a-Nl  TO  2©i  READ  bi  BEEP  .l.bi  NEXT  a 

7030  DATA  NO.  NO,  NO,  N2.  M4.  N4.  N4,  N2.  N2.  N2.  N4,  NO.  NO.  NO.  NO.  10.  20.  30.  40.  5© 

7040  IF  I  i >  NØ  THEN  GO  TO  100 

7050  FOR  a-Nl  TO  N5:  IF  «c>a  THEN  INPUT  "NAT1E  PLEASE:"!  LINE  n%s  FOR  b-N5  TO  •♦ 
NI  STEP  -Nli  LET  kS(b) -K*<b-Nl )  i  LET  k  <b) -k < b-Nl )  «  NEXT  bi  LET  k*<a)-n*i  LET  k<a 
)-*c:  GO  TO  7060 
7053  NEXT  a 

7060  CLS  l  PRINT  INK  7lAT  N2.N5I  FLASH  NI  I  "TODAY*  s  HALL  OF  FAME" 

7063  PRINT  PAPER  Nll  INK  7lAT  NO.  101  "MARSDRI VE" 

7070  FOR  a-Nl  TO  N3:  PRINT  INK  7lAT  N3+a.  N2l  k*< a)  1  -  "lk(a)i  NEXT  a 
7080  PRINT  AT  20, N5 I 'PRESS  A  KEY  TO  PLAY" 

7090  PRINT  INVERSE  NI  I  AT  21.  NO  I'  3  JUNI  1985  by  LARS  JENSEN  - 
7100  PRINT  AT  17.101  INK  6l"HAI"lAT  18. lOl'JJJ" 

7110  PRINT  AT  19. NO  I AS  I AT  lO.NOlA* 

7120  PRINT  AT  18.201'B'lAT  17. 201  "A"  I  AT  14,N2l"E"lAT  15.N2l"G" 

7130  PRINT  INK  N3l AT  12. 101'K'lAT  13.  20l'L"lAT  1A,  15l "M" lAT  15.  28;"N" 

7140  PRINT  AT  18.26:  M  N2l"0" 

7200  PAUSE  Ni:  PAUSE  NO 

7300  RESTORE  7310:  FOR  A-Nl  TO  16:  READ  B:  BEEP  .  I .  A:  »CXT  A 
7310  DATA  14.  14.  14.  15.  16.  17.  14.  14,  14.  20.  30.  40.  30.  40.  30.  2© 

7999  GO  TO  30 
8010  CLS 
8013  LET  a-ba 

8016  IF  a) N4  THEN  LET  a-a-N4:  GO  TO  8016 
8018  LET  U*-“KLMN" i  POKE  31162. CODE  U»(A) 

8020  PRINT  AT  21. NO  la« 

8030  IF  a-Nl  THEN  PRINT  AT  N3.N2la*<  TO  10)  lAT  N3.  161  ••<  TO  8)  I  AT  7.  20la*<  TO  8 
) I AT  14, 8t  a*(  TO  10)1  INK  51"  "la*<  TO  8) I AT  17.14la*<  TO  8) 

8040  IF  a-N2  THEN  PRINT  AT  7.  10la*C  TO  6)lAT  1 1 .  N4 1  aft  <  TO  6)tAT  12.l3ta*(  TO  14 
)i  FOR  a-N2  TO  26  STEP  N4:  PRINT  AT  N3.ala*<  TO  N4)i  NEXT  a 

8050  IF  a-N3  THEN  PRINT  AT  13.N2la*<  TO  30)  i  FOR  a-N4  TO  16  STEP  N4i  PRINT  AT  N 
3,  al  a*(  TO  N4)  :  NEXT  al  FOR  a-N2  TO  18  STEP  N4i  PRINT  AT  U.alaftC  TO  N4)l  NEXT  a 
8060  IF  a-N4  THEN  PRINT  AT  N3.20ta*<  TO  12)  i  FOR  a-N3  TO  17  STEP  N4i  PRINT  AT  a 
. 19-al a*(  TO  6) i  NEXT  a 

8300  LET  b*-"HAIJJJ":  FOR  a-30  TO  15  STEP  -Nll  FOR  b-Nl  TO  N3 
8310  IF  •♦b  <32  THEN  PRINT  AT  20.  •♦bl  INK  6 1  b4(b+N3)  I  AT  19. •♦blb*<b) 

8313  BEEP  .001.RND*30  . 

8320  NEXT  bi  PRINT  AT  20.  (•♦NA  AND  a<28)l^  '  I  AT  19.  (•♦NA  AND  a<28)l"  *«  NEXT  a 
8530  PAUSE  20i  PRINT  AT  19.171"  PAUSE  10 

8600  LET  ■•-CHRt  16*CHR*  7*CHR*  17+CHR4  N2+CHR*  19*CHR4  NI ♦"£££££££££" 

8610  PRINT  #01  AT  0. 01  INK  7l  PAPER  N2l  BRIGHT  NI  I ' 

"  lAT  O,  Ol  "SCORE 1 000000R.EvEL* 0008*  !«•<  TO  ll*N5)l 
8620  PRINT  UNO  1  AT  NO. 22- LEN  STR*  bal  INK  71  BRIGHT  Nll  PAPER  N2lba 
8800  POKE  32000. ba:  LET  a-USR  31000 
8999  RETURN 
9001  NEXT  ai  STOP 

9500  PRINT  HN©  I  AT  NO.  12-LEN  STR*  mc  I  INK  8l  PAPER  8l  BRIGHT  8l«d  RETURN 

9600  FOR  b-32010  TO  32007-*N3-PEEK  32001  STEP  N3 

9603  IF  x-Nl-PEEK  <b*Nl)  AND  a-PEEK  <b+N2)  THEN  POKE  b.  NO 

9610  NEXT  bi  RETURN 

9997  STOP 

9998  CLEAR  309991  LOAD  ""CODE  i  LOAD  ""CODE  i  GO  TO  1 

9999  SAVE  "MARSDRI VE'  LINE  9998 i  SAVE  "»c 'CODE  31000.3131  SAVE  "uda'CODE  USR  "a" 
,1201  VERIFY  ""i  VERIFY  "'CODE  i  VER I FY  ""CODE 


130 

é) 

140 

1 

130 

> 

160 


DATA  "3A007DCB3FCB3FC601 3201 7D4 721 0A7D36OO1 10300ED3A1 0F73A007DFE 043804 -.  249 
DATA  "D604 1 8F832027DC90000000G0000000000003AO 1 7D472 1 0A7DC5E37EFE0 1 28 1 D"  .216 
DATA  "  3A783CCB4728 1 9CB4F281 53601 3A785CFE 1 43804CB3F 1 8F82377233600C38279" .  283 
DATA  "11  ©300E 1 1 9C 1 76 1 0D0C9E 1 E5234E23463E20 1 645CD2D7 A3A027 DFEO 1 CAC679FE “.343 
DATA  "02CACB79FE03CAE979C3087A78FE202809CD 1 87 AFEA52807E 1 E33600C378791 6" .  380 


5 

170 

2 

180 

8 

190 

8 

1998 

1999 

2000 
2010 
2020 
2030 
2040 
2045 
2030 
2060 
3000 
"9") 
9000 


DATA  " 4 33E9AC  D2D7 A3E45328 D5CC3787 904 34C3A4 790434 3A7 83CCB4 72807 0C2B34 23 " .  283 
DATA  "C3A4 790D2B337 9FEFF20020C 3423C3A4 790434 3A037D91 FE323O070C2B3423C3  ’ .  291 


DATA  "  A4790D2 B3379FEFF 200 20C3423C3A4793A04 7D90FE323OO4 04 341 8D7 05331  BD3“ .  291 
DATA  " E5C3790F0F0F4FE6E0A86F79E603EE58677EC 1 E 1 C9E3C5F57 A32803C3E02CD0 1 ",  427 


DATA  "END" 

CLEAR  30999 
LET  »t-31000 
RESTORE  i  LET  a-*t 

READ  a* i  LET  m-Oi  IF  a»-"END"  THEN  GO  TO  9000 
READ  bum:  FOR  b-0  TO  31 

POKE  a+b.FN  a()i  LET  •-•♦FN  •<):  LET  a«-a*<3  TO  >i  NEXT  b 
PRINT  "ok  “I100^10*INT  <<a-«t)/32) 

IF  sum  O ■  THEN  PRINT  "arror  l  llnl*  "llOO^INT  <<a-st)/32)i  STOP 
LET  a=a*32:  GO  TO  2020 

DEF  FN  a( ) -16* (CODE  a»(l)-A8-<7  AND  a»< 1 ) ) "9" ) )+CODE  a*<2>-48-<7  AND  a*<2)> 


SAVE  "wc" "CODE  30000.315:  VERIFY  ""CODE 


10 

20 

30 

40 

30 

60 

70 

80 

90 

100 

110 

120 

130 

140 

150 

1000 

2000 


DATA  036 
DATA  063 
DATA  031 
DATA  235 
DATA  028 
DATA  252 
DATA  248 
DATA  000 
DATA  000 
DATA  255- 
DATA  195- 
DATA  060- 
DATA  024 
DATA  060 
DATA  000 
RESTORE 
SAVE  "ud 


>.  124,  012.  123.  023.  027.  251.  123 
.  059. 024. 024. 024. 024. 024.  036 
.  123.  096.  106.  224.  005.  000.  010 
,  085.  255.  238.  068.  06e.  068.  000 
,  062.  048.  222.  232.  216.  223.  222 
.  220.  024. 024, 024, 024. 024.  028 
i.  222.  006,  086,  007,  160.  000.  080 
,  000.  000.  002.  006.  006.  006.  006 
,  000.  000,  192.  240.  252.  255.  233 
.  255.  255.  000,  096.  006.  048.  003 
.  253.  102.  090. 090. 102. 255.  195 
,  024, 153. 255. 255. 153. 024.  060 
036, 090.  165. 163. 090. 036,  024 
036.  255.  165. 165.  255. 036.  060 
000.  060. 126. 126. 126. 126. 060 
:  FOR  a=USR  "a"  TO  USR  "o"+7:  READ  b:  POKE  a. b:  NEXT  a 
•"CODE  USR  "a", 120 


Vi  mangler  COMMODORE  64 
programmer 

Har  du  lavet  nogle  gode 
programmer,  og  kunne  du 
tænke  dig  at  tjene  nogle  hur¬ 
tige  kroner?  Så  send  dem 
straks  ind  til  SOFT  SPECIAL. 
Vi  kan  tilbyde  skattefrie  ho¬ 
norarer,  helt  op  til  1000  kro¬ 
ner. 

Send  dit  superprogram  til: 
SOFT  SPECIAL 
St.  Kongensgade  72 
1 264  København  K. 


LYT  TIL 
DATAVOICE 


Alt  om 


DATA 


Hver  lørdag  kl. 
17-18  på  FM 
102,8  MHz  i 
Storkøbenhavn 

Danmarks 

hotteste 

dataradio 

Produceres  i  samarbejde 
mellem  The  Voice  og 
månedsbladet  "Alt  om  Data" 


mim. 

?')»///'. ; tllll'i  !!:. // 

"  nilliUhi'i/-. 

‘‘wii/f/fc 

;.f// ///'r, 

'•tø'' 


Dette  spil  hedder  eneren,  tor¬ 
di  computeren  simulerer  ter¬ 
ningkast,  an  må  lægge  øjne¬ 
ne  på  terningerne  sammen. 
Når  man  har  nået  et  rimeligt 
antal,  kan  man  tå  sine  points 
skrevet  op  -  gør  man  ikke  det, 
og  slår  en  ENER,  vil  de  points 
man  har  samlet  (og  ikke  skre¬ 
vet  op)  være  tabt .  Naturligvis 
kan  der  spilles  flere.  Og  øn¬ 
sker  man  at  spille  alene,  spil¬ 
ler  man  mod  computeren. □ 
Tommy  Christiansen 


1  REM 

5  POKE  53280, 2= POKE  53281,13 
8  PRINT" (CLR)" 

10  PRINT" (CRSR  NED 15, CRSR  HØJRE 13, 

RVS  0N)TAST  SPRCE" 

12  PRINT" (HOME, CRSR  NED5) " 

15  PRINT" (CRSR  HøJRE4)/^\  1/  \  /“ 
\  l/~\  /-\  L/~\" 

2ø  PR I NT "(CRSR  HØJRES >  I  II  II 
II  I  I  I  I" 

25  PR  I  NT  "(CRSR  HØJRE3)  h _ '  I  I  Tn— 

_/  I  I- /  I  I" 

3ø  PR I NT "(CRSR  HØJRES)  I  I  II 
II  II" 

4ø  PR I NT "(CRSR  HØJRE3, 

SPRCE>\  /I  I  \  /  I  \  / 

I  I" 

47  PR I NT "(CRSR  HØJRE3, 

SPRCE2)  —  — ' 

49  FOR  R=55539  Tø  55870: POKE  R, 1 
: GET  R$ : IF  A$="  "THEN  85 
55  POKE  R- 1 øø , 2 : NEXT 
7ø  GOTO  49 
85  F’R  I  NT  "  (  CLR  )  " 

87  INPUT  "(RØD, CRSR  NED) HVOR  MRNGE  S 
PILLERE  :  ";Z 

88  IF  Z>6  OR  Z<1  THEN  PR I NT" (CRSR  NE 
D) FORKERT  RHTRL  SPILLERE  (M AX.  6)" 
: GOTO  87 

9ø  PRINT" (CLR)" =DIM  Nfl$(Z),NP(Z) 

92  FOR  1=1  TO  Z 

95  PRINT" (CRSR  NED3, CRSR  HØJRES )TRST 
SPILLER  "i  I" (CRSR  VENSTRE) 'S  NRV 
N  :  INPUT  NR$(I) :NEXT  I 

løø  PRINT" (CLR)" 

12ø  C0=ø : X=ø 
130  PRINT" (HOME)" 

14ø  T=INT(RND(1)#6)+1 
ISø  PRINT" (CRSR  NED2, CRSR  HøJRElø)SP 
ILLER  =  COMMODØRE" 

180  PRINT" (CRSR  NED2, CRSR  HøJREl 1 )TR 


LLET  BLEV  (RVS  ON)";T 
: FOR  R=1  TO  300 : NEXT  R 
• IF  T=1  THEN  5øø 

2øø  Cø=CO+T : IF  C0>=22  THEN  CP=C0+CP 
: GOTO  5øø 
22ø  GOTO  130 
230  PR I NT "(CLR)" 

24ø  CQ=ø : X=X+1 
250  PR I NT "(HOME)" 

27ø  PRINT" (CRSR  NED, CRSR  HøJRElø)SPI 
LLER  : (CRSR  HøJRE2,RVS  0N)";NR$(X) 
28ø  T=INT(RND(1)#6)+1 
29ø  PR I NT "(CRSR  NED4, CRSR  HØJRE 10>TR 
LLET  BLEV  (RVS  0N)";T 
: IF  T=1  THEN  FOR  1=1  TO  4øø=NEXT 
: GOTO  500 

295  CO=Cø+T: PRINT" (CRSR  NED2, 

CRSR  HØJRE lø) DU  HRR  NU"; 

CO"  POINTS" 

3øø  PR I NT "(CRSR  NED5, CRSR  HØJRES )SKfl 
L  DINE  POINTS  SKRIVES  OP  (J/N)?" 
31ø  GET  fl$ : I F  fl$=" "THEN  31ø 
315  I F  A$="S"THEN  END 
32ø  IF  H$="J"THEN  NP(X)=NP(X)+C0 
; GOTO  5øø 

325  IF  fl$="N"THEN  25ø 
33ø  GOTO  31ø 
5øø  PR I NT "(CLR)" 

51ø  PRINT" (CRSR  HED, CRSR  HøJRE4)C0MM 
ODORE  HRR" ;CP; "POINTS" 

515  FOR  1=1  TO  Z 

52ø  PR I NT "(CRSR  NED2, CRSR  HØJRE4) " i 
NA$ ( I ) ; "  HRR " ; HP ( I ) ; " PO I NTS " : NEXT 
530  PR I NT "(CRSR  NED2, CRSR  HøJREl 4, 

RVS  ON) TAST  SPACE" 

54ø  GET  R$ : IF  R$="S"THEN  END 

545  IF  R$0"  "THEN  540 

550  IF  X=ø  THEN  23ø 

56ø  IF  X=>1  AND  Z>1  AND  X<Z  THEN  230 

57ø  GOTO  løø 


46 


Hukommelses¬ 


husker 


PROGRAM:  fEMORYL  IST.  994-3 


■  Hvis  du  er  én  al  dem,  der  of¬ 
te  er  i  tvivl  om.  hvorvidt  der  er 
plads  til  program  og  data  i 
computeren,  og  du  prøver  at 
skrive  ?lre(8)  eller  lignende, 
får  du  et  misvisende  svar,  ikke 
sandt? 

Med  dette  program  er  du  helt 
fri  tor  sådanne  "overraskel¬ 
ser".  Du  skriver  blot  (etter  kør¬ 
sel),  SYS49152  og  straks  står 
der  på  skærmen,  hvor  meget 
plads  programmet  fylder, 
hvor  meget  plads  der  er  tilba¬ 
ge,  og  hvor  meget  arrays,  va¬ 
riabler  og  lignende,  der  er 
brugt.  □ 

Thomas  Ravn 


10  REM  *********************** 

20  REM  *  MEMORY-L ISTER  * 

30  REM  *  * 

40  REM  *  AF  THOMAS  RAVN  1985  * 

50  REM  *********************** 

60  : 

70  FOR  T=49 152  TO  49337: READ  A 
: POKE  T  ,  A 
80  CK  =CK  +  A : NEXT  T 
90  : 

100  IF  CK< >17899  THEN  PR INT"DATA  FEJ 
L ! ' :STOP 
1  10  : 

120  PR INT*<  CLR  >DATA  OK!" 

130  PRINT:PRINT 

140  PR  I NT "SYS<  491 52  >  FOR  AT  FAA  EN  L 
ISTE  OVER" 

150  PRINT" -  BRUGEN  AF  HUKKO 

MELSEN. ' 

160  PRINTSEND 
170  : 

180  DATA  169,115,160,192,32,30,171, 
56,165,45,229,43,170,165,46,229, 
44,32, 105 

190  DATA  192,160,192,169,128,32,30, 
171,56, 165,47,229,45,170, 165,48, 

229.46.32 

200  DATA  105,192,160,192,169,141,32, 
30,171 ,56,165,49,229,47,170,165, 
50,229,48 

210  DATA  32,105,192,160,192,169,154, 
32,30,171,56, 165,55,229,51 ,170, 
165,56,229 

220  DATA  52,32,105,192,160,192,169, 

167.32  ,'30, 171  ,56, 165,51  ,229,49, 
170,165,52 

230  DATA  229,50,32,105,192,169,13,76 
210,255,32,205, 189,169,103,160, 
136,76,30 

240  DATA  171,13,80,82,78,71,82,65,77 
32,32,58,32,0,13,86,65,82,73,65, 
66,76,69 

250  DATA  82,58,32,0,13,65,82,82,65, 
89,39,69,82,32,58,32,0,13,83,84, 
82,69,78 

260  DATA  71,69,32,32,58,32,0,13,70, 
82,73,32,32,32,32,32,32,58,32,0, 
32,66,89 

270  DATA  84,69,0 


Grand 

Marathon 

Der  er  nerver  på  i  dette  Grand 
Prix  spil  til  enten  Lambda,  Ma¬ 
rathon  eller  Power  3000.  Et  er. 
at  du  skal  køre  gennem  en 
svær  bane  på  den  korteste 
tid.  Noget  andet  er,  at  du  bli¬ 
ver  torment  adgang  til  en  ny 
omgang,  hvis  du  ikke  er  god 
nok  med  et  joystick. 

Som  nævnt  er  der  ikke  etter¬ 
ladt  plads  til  amatører,  men 
prøv  nu  alligevel:  Det  kunne 
jo  være.  at  netop  DU  var  den 
heldige  vinder  at  Grand  Prix 
pokalen.  Jørgen  Bundgaard 

1  REM  "JORDEN  BUNDGAARD" 

2  LET  HP=0 

6  GOSUB  4000 
tø  LET  A=  1 00 
SI  CLS 

15  LET  B=1  00 
20  LET  BI  =  1 
25  LET  IL= 15 
30  LET  TI D=1 OO 
35  LET  1*1=0 
40  LET  ?0=0 

- 'iffle. « 

30  PRIMT  AT  13.  0;  "  ffarøSSEBZæ&SSi — 

- »II1U.;  ' ' 

31  GOTO  løøø 


171  RETURN 

172  print  at  so.  o ; " mmaassamsm 


173  RETURN 

174  PRINT  AT  20,0!  "i 

Tt'I'-'*;  It'"’' 

175  RETURN 

176  PRINT  AT  2ø,0;"I 


177  RETURN 

m-i  n»B«rsig' 

. . 

173  RETURN 

130  PRINT  AT  70,  &  i  11  EBiMfgBMBaaS'JilUBa 

131  RETURN 

SKUB  msaxtaa*" 

133  RETURN 

aagaiKB  g’tBJrøi'ftU'fflt" 

135  RETURN 

194  PRINT  AT  20.  0 i  "  MMUMMBiEBBBBIM 
ajftway  BBDSBBB8E&BB" 

135  RETURN 

196  PRINT  AT  20,  O  S  " 

sats  aastiiLLtsiia'’ 

197  RETURN 

i3s  print  at  20, o ; " MBBamaiaMMatt 

■BOB  iiStmi  KJESiiaiji" 

199  RETURN 

ti«  WOOBtSA" 

241  RETURN 

242  PRINT  AT  20.  0;  “ WWBHIMWWtBKiaUg 

aaa  i?iw!ffFltfiff" 

243  RETURN 

244  PRINT  AT  20,  0  i" 

•m  xmmAxma" 

245  RETURN 

247  RETURN 

24S  PRINT  AT  20 ,  0 !  "  tSJSJEiLEi-iKtU 


249  RETURN 

250  PRINT  AT  20,0;  “i 


251  RETURN 

252  PRINT  AT  20,  0;  "0X1X0000 
nPUfff  TiTs'MTS^uS  'iiif.liil ' ' 

253  RETURN 

254  PRINT  AT  20,  0  i  "  aiEi.:12Ji*iaI25Ja 

255  RETURN 

256  PRINT  AT  20,  0 ;  " CTMTOCTSiSgffl 


257  RETURN 

290  PRINT  AT  ^i-  ft:  " mmMSMiMM«- - 

291  RETURN 

292  PRINT  AT  20,  0;  "■BBBBaBiSEa---- 


293  RETURN 
300  STOP 
1000  GOSUB  A 
løøl  PRINT  AT  BI, IL! "  " 

1002  LET  Y=:RND 

1003  IF  Y) .  2  THEN  PRINT  AT  20,  INT  (C 
Y*14)  +  10)  i 

1004  LET  Q=PEEK  (PEEK  16393+256*P£E 
K  16333) 

1005  IP  Q  O  123  AND  Y>  .  2  THEN  PRINT 
AT  20, INT  ( CY+14) +10) j "H" 

1006  IP  INKEY*="5"  OR  IMKEY*="S"  T 
HEN  D0SU3  3000 


48  0# 


1007  IF  IMKEY$="7"  AND  BI<1S  THEM 
LET  8I=BI+1 
1000  SCROLL 
1009  LET  B=B+2 

1 0)  1 0  IF  B  <1 7ø  THEN  GOTO  1030 


1011  IF  B> 1B5  AND  B<133  THEN  GOTO  1 
03ø 

1012  IF  B> 1 33  AND  B<240  THEN  GOTO  1 
030 

1013  IF  B>  256  AND  B<29G  THEN  GOTO  1 

030 

1014  IF  B>  232  THEN  LET  B=100 
102©  LET  A=B 

1035  PRINT  AT  BI,  IL! 

1040  LET  S=PEEK  (PEEK  1  6398+256*PEE 
K  16335) 

1042  IF  S=22  THEN  LET  M=M+1 

1043  IF  S=22  AMD  TID  (90  THEN  LET  TI 
D=TID+100 

1045  PRINT  AT  BI.ILJ"V" 

1050  IF  SCO  AND  SO  22  THEN  GOSUB  3 

1 0  O 

1070  IF  M>  O  THEN  LET  TID=TID-1 
1075  IF  TID <21  THEN  PRINT  AT  0,2S"t 
i  cl"  i 

.1.030  IF  TID  < O  THEN  GOTO  3300  < 

Iløø  LET  P0=P0+(BI/2>  i 

2000  GOTO  lOOO  J 

3002  LET  IL=IL+  C INKEY*="3"  AND  IL< 
30)-(INKEY*="5"  AND  IDS) 

3003  IF  BI >2  AND  RND) . 7  THEN  LET  BI 
--BI-1 

3005  RETURN 

3100  LET  BI=1 

3120  LET  TID=TID-2G 

3200  RETURN 

3300  LET  PO=INT  PO 

3310  IF  PO) HP  THEN  LET  HP=PO 

3320  PRINT  AT  5,  1  !  "POINT" 

3330  PRINT  AT  7,2;PQ 

3340  PRINT  AT  10, U "H. POINT" 

3350  PRINT  AT  12, 2  5HP 
3360  PRINT  AT  15, 15 "NYT  LOB" 

3370  PRINT  AT  16, 2  i " (J/N) " 

33S0  IF  INKEY$=" J"  THEN  GOTO  10 
339G  IF  INKEY$="N"  THEN  GOTO  5 
3400  GOTO  33S0 


i  i  l  ir 

4010  PRINT  AT  4,4  5"] 

g  HU" 

4020  PRINT  AT  5,  4S“\»* 
U  i 

4430  PRINT 

4440  PRINT  " 

4450  PRINT  " 

jap" 

4460  PRINT  " 


(I  l  1 


4470  PRINT 

IH«  " 

4480  PRINT 

iraj. " 

4490  PRINT 
EB  “ 

450G  PRINT 


■JKaasu  s  «g&ggg 


jp^ma  -j  .  iset~ 


4580  PRINT  "* 

*" 

459G  NEXT  X 

4600  PRINT  "****♦**************** 

4610  PRINT  AT  2, 125 "CAR  RUN" 

4612  PRINT  AT  4, 25 "DU  SKAL  I  DIN  R 
ACERBIL  *V*" 

4614  PRINT  AT  5, 25 "KORE  IGENNEM  EN 
BANE  UDEN  AT" 

4616  PRINT  AT  6,25" RAMME  KANTERNE 
ELLER  DE  ANDRE" 

4613  PRINT  AT  7, 25 "BILER  *H*. " 

4620  PRINT  AT  8,2S"DU  HAR  ET  VIST 
RUM  TID, SOM  DU" 

4622  PRINT  AT  9, 2 5" SKAL  KORE  BANEN 
IGENNEM  PAA" 

4624  PRINT  AT  10,25 "OG  HVIS  DU  IKK 
E  MA AR  DET, ER" 

4626  PRINT  AT  11, 2! "LØBET  SLUT.  DU 
FAAR  MERE  TID" 

4625  PRINT  AT  12,  2i "HVER  GANG  DU  H 
AR  KØRT  EN  0M-" 

4630  PRINT  AT  13,  25 "GANG.  " 

4632  PRINT  AT  14,  25 "DET  KOSTER  MEG 
ET  TID  AT  RAMME" 

4634  PRINT  AT  15, 25 "IND  I  NOGET, OG 
DET  KOSTER  " 

4636  PRINT  AT  16, 25 "LIDT  TID  AT  DR 
EJE" 

4638  PRINT  AT  17, 25 "DU  DREJER  MED 
P I  LENE  5  OG  8,  " 

4640  PRINT  AT  1S,25"0G  RYKKER  FREM 
PAA  BANEN  MED" 

4642  PRINT  AT  19,2i"PIL  7,  SOM  GIV 
ER  FLERE  POINT.  " 

4650  PRINT  AT  20,  IS',  "TAST  EN  TAST. 


4510  PRINT  "ææææaææaæææææææææææaæ 
æææaææææaæa" 

4550  PAUSE  500 

4560  PRINT  AT  O,  ø  5  " **************>! 

>f:  ^  jf:  jf: & :+: " 

4570  FOR  X=1  T020 


4700  PAUSE  4E4 
4710  RETURN 
4S00  SAVE  "CAR  RUn  ’ 
4S10  RUN 


TIC  TAC 


sm 


1  GOTO  4 

2  OPEN  1 , 8 ..  1 5 ,  "  S  :  T I  C-TAC  "  :  GLOSE  1 

3  SRVE"TIC-TflC" >8 

4  REM  AF  ANDERS  NATTESTAD 

lø  POKE  53281, 9 -POKE  53286,9 
=POKE  646,7 
2ø  PRINT" (CLR) " 

1 øøø  REM####*##*####*#####*######### 
### 

1 ø 1 ø  REM***  OPST I LLE  START-POS I T I ON 
*:** 

1 ø2ø  REM**************************** 

lø3ø*F0R  1=1  TO  6 
1040  READ  A , B , V 

lø5ø  FOR  X=A  TO  B = POKE  1824+X+4ø*V, 67 
: NEXT  X 
1060  NEXT  I 
1070  FOR  1=1  TO  6 
lø8ø  READ  R , B , X 

lø9ø  FOR  V=A  TO  B • POKE  1624+X+4 ø#V,66 
:  NEXT  V 
Hø0  NEXT  I 
lllø  FOR  1  =  1  TO  12 
1120  READ  A ,  B ,  C  64  4| 

1130  POKE  1 ø24+A+4ø*B , C  —*  - 

1140  next  i  tåmmm  n  1 

1150  FOR  1  =  1  TO  8  y  ■ 

1166  READ  A ,  B ,  V  - • 

1170  FOR  X=A  TO  B  STEP  3 

: POKE  1 ø24+X+4ø*V , 8 1 : NEXT  X 
1180  NEXT  I 

U9ø  POKE  1523, 46:  POKE  55795,6 
2600  REM**************************** 
*** 

2ølø  REM***  LED  EFTER  STARTSTED  ****• 
*** 

2026  REM**************************** 

203ø^X= 1 9 : V= 1 2 
2046  JO't-PEEK < 56320 >-117 
2ø5ø  GET  Af  :  IF  Af =CHR$ {. 32 > THEN  PRINT 
" <CLR> " : END 

2655  IF  Af =CHR$ i  1 3  >  THEN  RUN 

2066  IF  JOV=lø  THEN  2040 

2070  X 1 =X- < 3*  C JO V=2  >  >  +  ( 3#  C  JO Y=6  > > 

2ø8ø  V 1 =V~ C 3* ( JO V=8  > >  +  < 3* < J0V=9 >  > 

2096  A= 1 024+X 1 +4ø*Y 1 

21øø  IF  PEEK.CAK>81  AND  PEEK<A><>46 


■  Spillet  består  at  en  plade 
med  32  pinde  og  et  hul  i  mid¬ 
ten.  Det  gælder  så  om  at  flytte 
og  fjerne  pinde  sådan  at  den 

-  ,  ,  .  sidste  pind  flyttes  ind  i  det  mid- 

,erste  hul  •  Reglerne  er  at  man 
'  ^ kun  må  flytte  en  pind  hen 

•  over  en  anden,  der  så  skal 

1  *  Programmet  kræver  joystick  i 

port  2,  og  hvis  man  vil  stoppe 
~~ spillet,  kan  det  gøres  med  r 
mellemrum  og  return .  □ 

Anders  Nattestad 

THEN  2640 

211ø  IF  JOYCø  THEN  POKE  55296+ C A- 102 
4  > , 6 : X=X1 : Y=Y1 : GOTO  3000 
: REM  BEVAEGELSE 

2120  POKE  55296+X+4ø*V, 7 ; REM  GUL 
2130  POKE  55296+ < A-l 624 ),ø: REM  SORT 
2146  X=X 1 : Y= V 1 
215ø  GOTO  2ø4ø 

3øøø  REM**************************** 
*** 

3ølø  REM*****  BEVAEGELSE  ********* 
*** 

3ø2ø  REM**************************** 
*** 

3036  FOR  1=1  TO  1 øø: NEXT  I=JOV=ø 
3ø4ø  J0Y=PEEK C  56320 >-117 
: IF  J0Y=10  THEN  3030 
3650  X 1 =X- C 3* ( JO Y=2  >  >  +  C  3* < JO Y=6  >  > 
3060  Y 1  =  V-  C  3*  C  JOY =8  >  >  +  3*  C  JO Y=9  >  > 
3ø7ø  X2=X-  ( 6*  ■'  JOY =2  >  >  +  (  6*  <  J0V=6  >  > 
3ø8ø  Y2=Y- <  6*  <  J0Y=8  >  >  +  <  6*  J0V=9  >  > 
3090  A= 1 024+X l+4ø*Yl 
3 1 øø  B= 1 024+X2+40*V2 
3116  IF  PEEK(AK>81  OR  PEEKCB><>46  T 
HEN  POKE  55296+X+4ø*Y, ø : GOTO  2040 
3120  POKE  lø24+X+4ø*Y, 46 
: POKE  55296+X+40* Y , 7 
3136  POKE  A, 46 
3146  POKE  B, 81 

3 1 5ø  POKE  B  ,31.:  POKE  55296+  c:  B- 1 024  > ,  ø 
3166  X=X2 : V=Y2 
3176  GOTO  2640 

4øøø  REM**************************** 


.*** 

4ølø  REM******.*  D  A  T  A  ******* 
*** 

4ø2ø  REM**************************** 
*:** 

4ø3ø  DATA  1 5 , 23 ,1,9,1 3 , 7 , 25 , 29 , 7 , 9 , 
13, 17,25,29, 17, 15,23,23 

4ø4ø  DATA -  8,16,8,8,16, 3ø , 2 , 6,14 , 2 , 6 , 
24, 18,22, 14, 18,22,24 

4ø5ø  DATA  14,1,112, 8 ,7,1 1 2 , 24 ,17, 1 1 2 , 
24,1,110,30,7,116, 14, 17,116,24,7, 
109 

4ø6ø  DATA  1 4 , 23 , 1 69 ,3,17,109,14,7, 

1 25 , 3ø ,17,1 25 , 24 , 23 , 1 25 

4ø7ø  DATA  16,22,3,1 6 , 22 ,6,1 6 , 22 , 1 8 , 
16, 22, 21 , lø, 28, 9, lø, 28, 15,10,16, 
12,22,28, 12 


TRON 


S 20  DEF  S£G-UM40iP0KE  LH1 A,  PEEK  (ItHlC)  i  DEF  SEO 
530  LOCATE  25, 33i PRINT  “TRYK  PAA  SPACE “  1 1 LOCATE 
540  NHI  LE  IJ4<EY4<XXR4<  32 »  i  MEND 
550  IF  F-I  THEN  COLOR  15,4  ELSE  C  OL  OR  7,0 
36©  0. 8 1  LOCATE  ,,0 
PRINT  - 


10  REM 

20  REM 

•  •Ml 

30  REM 

iiua 

40  REM 

•  •••i 

50  REM 

•  ■■•1 

60  REM 

■  •••• 

70  REM 

•  ■••■ 

80  REM 

•  •••I 

90  REM 

•  llll 

IOO  REM 

lllll 

110  REM 

■  llll 

120  REM 

•  llll 

130  REM 

iiiii 

140  REM 

•iiiii 

TRON  -  a«  So* ub  Macakaaay. 

Lavat  d.  1/7  -  1985 

Til  brug  kraavaa  dar  an  Color /Graphlca 
aonl tor  adaptar  og  an  Ora#l k-akaara. 

X  1 Inlarna  150-210  og  llntarna  401-487 
ar  dar  gratlaka  tagn  1.  Da«  *aar  du  vad 
at  trykka  <og  holda)  Alt  nad,  lndtaat 
nuaaarat  paa  dat  tagn  du  vi  1  hava,  - 
brug  taatarna  til  hojra  -  og  al  lp  Alt. 


EEKIIXlOiDEF  BE  G 1 8«-" "iDS-O 
datta  an  *arva-«onltor  7  <J/N) 
NT)  ' 


150  CLSi SCREEN  OiWIDTN  80 1  KEY  0 FF 
160  DEF  BEG-fcH40iP0KE  fcHl  A,  PEEKTI. 

170  LOCATE  12,23, OiPRINT  "Er 
ISO  NMILE  B*-”iB*-lNKEY»iNEND 
190  IF  B«-"N’  OR  8«--n’  THEN  F-OiC-1 i 8«---|ØOTO  210 

200  IF  BOOM-  AND  XOO-J"  THEN  8«-" "  i  C-Oi  BEEPi  GOTO  180  EL8C  F-liB«-“ 
210  IF  F-l  THEN  COLOR  9,  1 1  CL 8 1  LOCATE  1  EL6E  COLOR  O,  7, 01CL81  LOCATE  1 
220  PRINT 
230  PRINT  - 


til  <1-10> 


",  NAVN1« 
• , NAVN2« 


",8 


RINT  ■ 

I^W»RINT  " 

li  PRINT  • 
Øl  PRINT  • 
fao  PRINT  - 
290  PRINT  “ 


300  DCF  SE8-6M40iP0KE  UHA,  PEEK  <*M1C)  i  DEF  BEG 

310  LOCATE  12, 23, OiPRINT  "Inatruktlonar  o«  splllat  7  <J/N)  ■ 

320  NMILE  B»-"-iB»-INKEY4iMEND 

330  LOCATE  12, 23i PRINT  STRING« <40, 32) 

340  IF  8«--N-  OR  8«-"n’  THEN  CLSi  S«-- •  i  GOTO  550 

35©  IF  8«<>"J-  AND  8*< >■ J "  THEN  S*-"" i BEEPi GOTO  310  EL8E  8«-"" 

360  LOCATE  9, li  PR  I NT  STRING« <80, •-•> | 

370  PRINT  ■  I  ipl  1  lat  TRON  akal  dar  vaara  to  apl Ilara,  hvora«  kun  an  a«  da« 

Forladar  -| 

$00  PRINT  "  apl  Hat  1  1  Iva.  Da  akal  kora  rundt  paa  aotorcyklar,  dar  aFtarladar 
an  lya-  ■» 

390  PRINT  "  atrlba  bag  alg.  Da  akal  undgaa  at  kora  Ind  1  i  daraa  agan  lyaatrlb 
a,  aod-  “| 

40©  PRINT  -  atandarana  lyaatrlba,  og  MUREN.  Hvla  do  gor  dot|  DOR  DE  !! ! 

•» 

410  PRINT  STRING«  <80, "— ") | 

420  PRINT  ■  1.  SPILLERS  TASTER  2.  SPILLERS  TAST 

ER  -| 

430  PRINT  8TRING«  <80, "—"I | 

440  PRINT  "  Ni  OP  I 


450  PRINT 
460  PRINT 
470  PRINT 


Si  HOJRE 
Zi  NED 
Al  VENSTRE 


I 


480  PRINT  STRING« <90, •-■) » 

490  PRINT  ■  BEMÆRK 

TER  -| 

500  PRINT  ‘  OG  GRAF  I K- SKE  ARM  TIL  DETTE  SPIL.  "| 

510  IF  PEEK  < LH4 10)  -LH3G  THEN  BEEPi  PRINT  -  -  OG  DET  HAR  DU  IKKE  ! 
D  ELSE  PRINT  STRING« <34.-  ")j 


C  i  OP 
*  I  HOJRE 
✓  I  NED 
|  i  VENSTRE 

DER  SKAL  .BRUGES  EN  COLOR /GRAPHICS  MONITOR  ADAP 

“|  lEN 


640  DEF  BEQ-U44OiP0K£  UHA,  PEEK <«H1C> i DEF  6E 0-0 i POKE  U4417,64 
650  IF  DS- 1  THEN  700 

66«  LOCATE  10.  liIU>UT  -1.  Bplllara  navn 
670  NAVN1«— LEFT«  < NAVN I«, 8) iPl— O 
680  LOCATE  11, li  INPUT  "2.  Bplllara  n*vn 
690  MAVN2I-LEFT«  <NAVN2«, 8)  I  P2— O  , 

700  LOCATE  12,  li  INPUT  "Hvad  vil  1  apl  11 
710  IF  G< 1  OR  0>I0  THEN  BEEPiOOTO  72© 

720  LOCATE  13,liIJ#*UT  -Fart  <©-l>  <0  ar  hurtlgat) 

730  IF  B< O  OR  S>1  TMEN  BEEPi GOTO  700 
740  DCF  SEG— U440 1 POKE  UHA,  PEEK  <UHC)  i  DCF  BEG 
750  CL  S ■ SCREEN  1, C i COLOR  F, F 
760  LOCATE  12, 13 1  PRINT  "TRYK  PAA  SPACE* 

770  NHI  LE  INKEY«<  >OOW<32)  i  WEND 

780  L1NE(3,3)-(317, 187)  ,3, BF 

790  LINE<8,8)-<312, 181), O, BF  , 

800  RI  — 1 1 R2— 1 1 X 1-30 1 Yl  — 100i  K 2-270 1 Y2— 100 

810  LOCATE  25, 2i PRINT  USING  -\  \  i  O«- | NAVN1 «| PI | 

820  LOCATE  25, 25i PRINT  USING  "\  \  i  |  JMVN2«|  P2| 

830  8«— INKEY«i IF  6«-"-  THEN  920 

840  IF  B«--8-  OR  S«--a“  T»«N  Rl-l 

850  IF  S«-" | "  THEN  R2-1 

860  IF  S«--M-  OR  8 *--»•“  THEN  Rl-2 

870  IF  8«— “C "  THEN  R2-2 

880  IF  8*— -A-  OR  S*--«’  THEN  RI -3 

890  IF  S«-"*-  THEN  R2-3 

900  IF  8«--Z-  OR  S*-"*“  T»CN  Rl-4 

910  IF  S«-"/"  THEN  R2-4 

920  FOR  1-1  TO  8*SOi NEXT 

930  IF  Rl-l  THEN  XI-X1«5  ELSE  IF  Rl-2  THEN  YX-Y1-5  ELSE  IF  Rl-3  THEN  Xl-Xl-5  ELS 
E  IF  Rl-4  THEN  Y1-YU3 

940  IF  R2-1  THEN  X2-X2-5  ELSE  IF  R2-2  THEN  Y2-Y2-5  ELSE  IF  R2-3  THEN  X2-X2+3  EL8 

E  IF  R2— 4  THEN  Y2-Y2*5 

950  IF  1X1-X2)  AND  <Y1-Y2>  THEN  1010 

960  IF  POINT  <X1,Y1)<>©  T>«N  1020 

970  IF  POINT <X2,Y2)<>©  THEN  1040 

980  LINE  <X1— 2, Yl-2)  —  <X1*2,  Yl*2> , 1 , BF 

990  LINE  <X2— 2, Y2— 2) - <X2*2,  Y2»2) , 2, BF 

lOOO  GOTO  830 

1010  CL8i LOCATE  12, 12iPR1NT  "UAFGJORT" i  FOR  1-1  TO  2000 ■  NEXT  iGOTO  1050 

1020  IF  POINT <X2,Y2><>0  THEN  1010  ELSE  CL8i LOCATE  12, SiPRINT  NAVN 1 • i  -  TABTE  DE  NN 

E  OMBANG  ! ! ! • i P2— P2» 1 i FOR  1-1  TO  2000 i NEXT 

1030  GOTO  1050 

1040  IF  POINT  (XI  ,  Yl  ><  >©  THEN  1010  ELSE  CLSi  LOCATE  12, SiPRINT  NAVN2«,  "  TABTE  DE  NN 
E  OMSANG  ! ! ! " i P 1 -P I ♦ 1 1 F OR  1-1  TO  2000 1 NEXT 
1050  IF  PI— G  THEN  1080  ELSE  IF  P2-G  THEN  1090 
1060  DEF  SEG-LH4G:  POKE  U11A,  PEEK  <UHC)  i  DEF  SEG-© 

1070  SCREEN  OiWIDTH  8O18OTO  720 

1080  LOCATE  13, SiPRINT  NAVN 1 » j -  VANDT  !!!*iGOTO  1100 
1090  LOCATE  13, SiPRINT  NAVN2«j "  VANDT  !!•• 

1100  FOR  1-1  TO  25001 NEXT  i  SCREEN  OiWIDTH  80 1 LOCATE  12,23,0 

111©  DEF  S£G-lcH4Gi  POKE  UHA,  PEEK  <UHC)  1  DEF  SEG-0 

1120  INPUT  -Vil  1  apllla  «od  hlnandan  1  g an  <J/N)  7  -  -,S« 

1130  IF  LEFT« < S«, 1 >  — " J"  OR  LEFT* <S«, 1 ) -- J -  THEN  DS-liGOTO  1160 
1140  IF  LEFT* < S«, 1)-"N”  OR  LEFT« <S«, 1 ) -*n-  THEN  DS-ØiGOTO  1160 
1150  BEEPi LOCATE  20, 32i PRINT  "Forkart  avar  !!!-iGOTO  1110 
1160  PI— 0iP2— OlGOTO  550 


il 


■  I  spillet  *TRON«  styrer  du  en 
motorcykel  rundt  pd  en  af¬ 
grænset  bane.  Du  må  ikke 
ramme  hverken  din  mod¬ 
stander  eller  din  egen  »stribe«. 
»TRON«  har  været  bragt  til 
næsten  alle  microer,  så  det 
var  også  på  tide  det  kom  til 
PC'erne. 

Spillet  byder  på  valg  mellem 
2  hastigheder  plus  valg  at  vin¬ 
dende  pointtal. 

Kørslen  at  »TRON«  kræver  gra¬ 
fisk  adaptor.  De  grafiske  tegn 
opnås  ved  at  holde  ALT  nede, 
hvorefter  nummeret  på  det 
ønskede  grafiktegn  indta¬ 
stes.  □ 

Sotus  Macskassy 


Program 

kartotek 


■  Ofte  har  en  "hjemmecom¬ 
puter  treak ' '  et  syndigt  rod  i  si¬ 
ne  programbånd,  hvilket 
sommetider  resulterer  i,  at  et 
vigtigt  program  torsvinder,  el¬ 
ler  slettes.  Programmet  som  vi 
her  viser,  er  et  program  karto¬ 
tek,  beregnet  til  Amstrad,  og 
det  kan  bruges  til  både  bånd 
eller  diskette.  Man  kan  tor  eks¬ 
empel  indtaste  programmets 
titel,  placeringen  på  bånd, 
bånd  nummer,  og  på  hvilken 
båndside  programmet  ligger. 
En  anden  funktion  i  program¬ 
met  er,  at  man  kan  lå  alle  tit¬ 
lerne  samt  deres  placering 
udskrevet.  □ 


Henrik  Rønnesi 


10  ’ 

20  ’  PROGRAM-KARTOTEK 
30  ’ 

40  ’  LAVET  I  AUGUST/ 1985 
50  ’ 

60  ’  AF  HENRIK  RONNEST. 

70  ’ 

80  MODE  2: INK  0. OiBORDER  0:INK  1,26: PEN  i: PAPER  0:DIM  NA*(500) , NR*(500) , BP*(500) 
,  DK* (500) 

30  INPUT  "SKAL  DER  HENTES  GAMLE  DATA  (J/N)  :  ",NY*:IF  UPPER* (NY*) =" J"  THEN  100  E 
LSE  140 

100  OPENIN" P-DATA"  :  FOR  G=0  Tb,»501 

110  LINE  INPUT#9, NA*(G) :LINE . INPUT#9, NR*(G) :LINE  INPUT#9, BP*(G) :LINE  INPUT#9,  DK* 
(G) : AN=G 

120  IF  EQF=0  THEN  NEXT  G  ELSE  130 
130  CLOSEIN 

140  CLS:RESTORE:TEKST*=" PROGRAM-KARTOTEK.  LAVET  AF  HENRIK  RONNEST.  AUGUST/ 19S5. 

AMSTRAD  CPC  464. ":DOSUB  450:’  RAMME-RUTINE 
150  FOR  G=2  TO  S  STEP  2: READ  MENU* : LOCATE  20, G+6: PRINT  G/2":  " ; MENU* : NEXT  G 
160  DATA  INDSKRIV  NYE  DATA. , SE  ALLE  TITLER. , GEM  DATA  PAA  BAAND/DI SKETTE. , SE  DATA 
OM  ENKEL  TITEL. 

170  PRINT  CHR* ( 7) : LOCATE  21. 20: INPUT  "ANGIV  NUMMER  :  “,NR:IF  NR(1  OR  NR) 4  THEN  1 
70 

180  CLS : ON  NR  GOTO  190,280,330,500 

190  TEKST*«" INDSKRIVNING  AF  NYE  DATA. KENDES  DE  ONSKEDE  DATA  IKKE,  SAA  TRYK  E1MTER 
.  “  :GQSUB  450 

200  ’  INDSKRIVNING  AF  NYE  DATA 

210  LOCATE  2, 4 :LINE  INPUT  "PROGRAMNAVN  :  ",NA*(AN):IF  NA*(AN)=""  THEN  NA* (A 

N ) = " UKENDT" 

220  LOCATE  2,5:LINE  INPUT  "BA AND  NR  +  SIDE  :  ",NR*(AN):IF  NR*(AN)=""  THEN  NR*(A 
N ) = " UEKNDT " 

230  LOCATE  2, 6:LINE  INPUT  "BAAND  PLACERING  :  ",BP*(AN):IF  BP*(AN)=,,M  THEN  BP*(A 
N>  =  " UKENDT" 

240  LOCATE  2,  7:LINE  INPUT  "DISK. NR  +  SIDE  :  “,DK*(AN):IF  DK*(AN)=""  THEN  DK* ( A 
IM)  =  " UKENDT " 

250  LOCATE  2, 10: INPUT  "ER  DISSE  DATA  I  ORDEN  (J/N)  :  " , KK* 

260  IF  UPPER*(KK*) O "J"  THEN  CLS:GOTO  190  ELSE  AN=AN+1 
270  GOTO  140 

280  TEKST*="UDSKRI VNI NG  AF  ALLE  TITLER.  BRUG  MELLEMRUMS-TASTEN  FOR  PAUSE.  GOSUB 
450 

290  LOCATE  1,S:F0R  G=0  TO  AN-l: PRINT  USING  "####  ":G;: PRINT  NA*(G) 

300  IF  INKEY (47)=0  THEN  GOSUB  490 
310  NEXT  G: PRINT" 

TRYK  PAA  ’ENTER’" 

320  IF  INKEY ( 18) =0  THEN  140  ELSE  320 
330  ’  OUTPUT  PAA  DISKETTE,  ELLER  BAAND 

340  TEKST *= " UDLAESN I NG  AF  PROGRAM-DATA  PAA  DISKETTE,  ELLER  BAAND. ": GOSUB  450 
350  LOCATE  2. 5: PRINT  “INDSAET  BAAND/DI SKETTE,  HVORPAA  DATA  SKAL  UDLAESES.  DEREFT 
ER  TRYK  ENTER" 

360  IF  INKEY (18)  O  O  THEN  360 
370  LOCATE  2, 7:0PEN0UT  "P-DATA" 

380  FOR  G=0  TO  AN 
390  PRINT  #3, NA* (G) 

400  PRINT  #9, NR* (G) 

410  PRINT  #9, BP*(G) 

420  PRINT  #9.DK*(G) 

430  NEXT  G : CLOSEOUT : GOTO  140 
440  END 

450  ORIGIN  O, O : DRAW  0,390:DRAW  639,390:DRAW  639,0:DRAW  0,0 
460  LOCATE  2, 2: PR  I  NT  TEKST* 

470  ORIGIN  O, 364 : DRAW  640,0 
480  RETURN 

490  IF  INKEY ( 47 ) =0  THEN  RETURN  ELSE  490 

500  TEKST*=" INDSKRIV  PROGRAMNAVN,  OG  AMSTRAD  VIL  PROVE  AT  FINDE  DATA  OM  PROGRAMM 
ET": GOSUB  450 

510  LOCATE  2, 5: INPUT  "PROGRAMNAVN  :  ",SG* 

520  FOR  G=0  TO  AN 

530  IF  5G*=NA*(G)  THEN  550  ELSE  NEXT  G: LOCATE  2, 22: PRINT  "DATA  IKKE  FUNDET.  TRYK 
’ENTER’ . " 

540  IF  INKEY (18) O  O  THEN  540  ELSE  140 

550  CLS : TEKST*« "DATA  OVER  "+NA*(G) :GOSUB  450 

560  LOCATE  2,5:PRINT  “TITEL  :  “ ! NA* (G) : R* (O) =NA*(G) 

570  LOCATE  2,6:PRINT  "BAAND  NUMMER  +  SIDE:  " i NR*(G) : R*( 1) =NR*(G) 

580  LOCATE  2, 7:PRINT  "BAAND  PLACERING  :  " SBP*(G) : R*(2)=BP*(G) 

590  LOCATE  2, S: PRINT  "DlgK-NR  +  SIDE  :  “ S  DK* (G) : R* (3) =DK* (G) 

600  LOCATE  2. li: INPUT  "SKAL  DATA  RETTES  SAA  TRYK  ’ R’ ,  ELLERS  ’ENTER’  :",LL*:IF  U 
PPER*(LL*)="R"  THEN  610  ELSE  140 

610  TEKST*="RETTE  SYSTEM.  SKAL  ENKELT-DATA  IKKE  RETTES,  SAA  TRYK  ’  ENTER’ .": GOSUB 
450 

620  LOCATE  23,5:LINE  INPUT" ", NA*(G) : IF  NA*(G)=”"  THEN  NA*(G)=R*(0) 

630  LOCATE  23,6:LINE  INPUT" " , NR* (G) : IF  NR*(G)=""  THEN  NR*(G)=R*(1) 

640  LOCATE  23, 7:LINE  INPUT" ”, BP*(G) : IF  BP*(G)=“"  THEN  BP*(G)=R*(2) 

650  LOCATE  23,  8:LINE  INPUT"  ",  DK*(G)  :  IF  DK*(G)=,,M  THEN  DK*(G)  =  R*(3) 

660  GOSUB  140 


&0  53 


Variabel-skriver 


■  Programmet  tor  alle  "eks-  ' 
perter"  -  hvorfor  nu  det? 

Joh,  tor  med  dette  program 
kan  du  få  udskrevet  alle  vari-  [ 
abier,  og  deres  værdier.  Såle¬ 
des  kan  du  rette  i  program¬ 
mer,  så  de  passer  til  dine  be¬ 
hov.  Programmet  startes  (og 
køres)  med  SYS49 152.  □ 

Thomas  Ravn 


COMMO 

DO« 

64 
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10  REM  *********************** 

20  REM  *  DUMPER  G4  * 

30  REM  *  * 

40  REM  *  AF  THOMAS  RAVN  1985  * 

50  REM  *********************** 

60  : 

70  FOR  T =49 152  TO  49343: READ  A 
: POKE  T,A 
80  CK=CK+A:NEXT  T 
90  : 

100  IF  CK< >22287  THEN  PR INT"DATA  FEJ 
L  !  "  : STOP 
1  10  : 

120  PR INT"<  CLR )DATA  OK ! “ 

130  PR INT : PR INT 

140  PRINT*  SYS< 49152)  FOR  AT  FAA  EN 
LISTE  OVER" 

150  PRINT"  -  ALLE  VARIABLER 

OG  DERES" 

180  PRINT"  VAERDI . " 

170  : 

180  END 
190  : 

200  DATA  165, 45,.164, 46, 133,20, 132,21 
196,48,208,2, 197,47, 176,24 ,105,2, 
144,1 

210  DATA  200,133,34,132,35,32,70,192 
32,122,192,138,16,7,32,131,192,78 
53,192 

220  DATA  96,152,48,6,32,147,192,76, 

53.192.32.156.192.169.13.32.210, 
255,165,20 

230  DATA  164,21,24,105,7,144,193,200 
176,190,160,0,177,20,170,41,127, 
32,210 

240  DATA  255,200,177,20,168,41,127, 
240,3,32,210,255, 138,16,17,152,48 
10,169 

250  DATA  42,32,210,255,104,104,76,53 
192, 169,37,208,78, 152,16,4,169,36 
208,71 

260  DATA  96,32,210,255,169,32,32,210 
255, 169,61 ,208,58, 160,0,177,34, 
170,200 

270  DATA  177,34,168,138,32,149,179, 
76,150,192,32,166,187,32,221,189, 
76,30,171 

280  DATA  32,187,192,160,2,177,34,133 
37,136,177,34,133,36,136,177,34, 
133,38 

290  DATA  240,10,177,36,32,210,255, 

200. 196.38.208.246.169.34.76.210, 
255 


Rockn  Wrestle-the  »irst  truly  3  dimensional  combat  sports  simulation  game. 
Dynamlc  graphics,  state-of-the-art  animation,  1  and  2  player  mode,  brllllant  gameplay,  10 
dltferent  opponents  and  complete  rock  sound  track.  More  foystick  moves  than  you  Imaglned 
posslble-over  25-lncludlng  the  atomlc  drop,  aeropiane  spin,  plledrlver,  body  slam,  back  breaker, 
arm  twist,  etbow  drop  and  tumbuckle  fly: 

Rock’n  Wrestle-the  challenge  beglns  herel 


Det  nye 

låner  jeg  IKKE  ud! 


Vennerne  må  selv  gå  i  kiosken  og  kobe  nr.  3. 

-  hvor  de  kan  læse:  Stortest  afAMIGA  -  den  professionelle  spillemaskine. 

Sådan  styrer  Commodore  fremtidens  loservideo.  Hvordan  er  CP/M  'en  på 
den  nye  128'er.  64'eren  laver  også  lokal-TV.  Tips  til  CI28,  C64,  06,  Plus4 
og  VIC20.  Masser  af  nyheder,  anmeldelser  og  programmer  -  lige  til  at  taste 
ind.  Stor  konkurrence,  hvor  du  kan  vinde  en  mus  og  25  superspil,  samt 
meget  meget  mere. 

Fås  nu  i  kioskerne.  Pris  kr.  29,85. 


COMputer  -  for  DIG  og  din  COMMODORE 


